Forum: Win32/Win64 API (native code)
Delphi
by Klaus01,
21. Nov 2009
und noch ein Versuch.
procedure TForm1.FormCreate(Sender: TObject);
begin
// Verzeichnis, das mehrere JPG-Dateien enthält:
Form1.Caption := 'F:\test\test1.jpg';
bereitsBearbeiteteDateien := TStringList.Create;
end;
Forum: Win32/Win64 API (native code)
Delphi
by Klaus01,
21. Nov 2009
Guten Abend,
vielleich geht es so?
// auch ein Prototyp:
function HoleNaechsteDatei: string;
var
SR: TSearchRec;
begin
SearchDir := VerzeichnisDerAktuellGeladenenDatei;
if FindFirst(SearchDir + AktuellGeladeneDatei, faAnyFile, SR) = 0 then
begin