DLL-verkleinern

[jbg]

Code:

function texter(P: PChar; MaxLen: Integer): Integer; stdcall; 
var S: string; 
begin 
  S := DateTimeToStr(Now); // Datum/Zeit in temporären String holen
  if P <> nil then
    StrLCopy(P, PChar(S), MaxLen); { temp. String in den durch P übergebenen Speicherplatz kopieren }
  Result := Length(S); // nötige Länge zurückliefern
end;