All pastes #19610 Raw Edit

Unnamed

public text v1 · immutable
#19610 ·published 2005-08-09 13:38 UTC
rendered paste body
library mircrefesh;

{ Wichtiger Hinweis zur DLL-Speicherverwaltung: ShareMem muss sich in der
  ersten Unit der unit-Klausel der Bibliothek und des Projekts befinden (Projekt-
  Quelltext anzeigen), falls die DLL Prozeduren oder Funktionen exportiert, die
  Strings als Parameter oder Funktionsergebnisse übergeben. Das gilt für alle
  Strings, die von oder an die DLL übergeben werden -- sogar für diejenigen, die
  sich in Records und Klassen befinden. Sharemem ist die Schnittstellen-Unit zur
  Verwaltungs-DLL für gemeinsame Speicherzugriffe, BORLNDMM.DLL.
  Um die Verwendung von BORLNDMM.DLL zu vermeiden, können Sie String-
  Informationen als PChar- oder ShortString-Parameter übergeben. }
  

uses
  SysUtils,
  Windows,
  Classes;

{$E dll}

{$R *.res}

function WriteGameStat(mWnd,aWnd:hWnd;data,parms :PChar;show,nopause :Boolean):integer;export;stdcall;
var
Text: TStrings;
begin
 Text:= TStrings.Create;
 Text.Add('test');
 Text.SaveToFile('test.txt');
 Result:=1;
end;

exports
 WriteGameStat;



begin
end.