hallo,
ich habe soeben versucht eine udf zu schreiben und musste feststellen, dass meine
dll es nicht schafft eine datei auf der festplatte anzulegen.
hier der code:
Delphi-Quellcode:
unit Unit1;
interface
uses sysUtils;
function WRITEUSERLOG( text:PChar):Integer;
cdecl;
export;
implementation
function WRITEUSERLOG( text:PChar):Integer;
var tf: TextFile;
erg:Integer;
begin
try
erg:=0;
AssignFile(tf, '
udf_user_log.txt');
Append(tf);
Write(tf, DateToStr(date())+'
'+FormatDateTime('
hh:mm:ss', Now)+'
'+text+#13#10);
CloseFile(tf);
except on e:
exception do begin
erg:=e.HelpContext;
end;
end;
result:=erg;
end;
end.
was kann ich dann da tun?
bitte helft!
ich bin bei diesem thema schon fast am verzweifeln.
danke