FindFirstFile NIL übergeben?

[Pseudemys Nelsoni]

hallo,

ich möchte das handle einer datei per FindFirstFile bekommen, der erste Parameter ist der Pfad zur datei, der zweite ist ein record den die funktion mit daten füllt. Die daten sind aber für mich unwichtig, muss ich nun extra eine variable deklarieren um die funktion benutzen zu können? Weder NIL noch 0 geht....



EDIT:

ist das richtig so?:

Delphi-Quellcode:

hf := FindFirstFile(PChar(pfad), TWin32FindData(nil^));

[Dax]

Du musst leider eine Variable erzeugen und sie füllen lassen. Kannst ja den Inhalt gleich wieder löschen.

Oder erstelle zur Laufzeit einen Pointer, der als speicherbereich genau die Größe des Recortds umfasst.

[Muetze1]

Moin!

Und mal was anderes: was stellst du dir denn unter "Handle für eine Datei" vor? Bzw. was meinst du denn von der Funktion zurück zu bekommen? Das ist zumindest ein Suchhandle aber kein Filehandle zu der Datei...

Nur, bevor Missverständnisse auftreten...

MfG
Muetze1

[Christian Seehase]

Moin Pseudemys Nelsoni,

im zweiten Parameter soll die Funktion Informationen ablegen, und muss deshalb bei der Borland Deklaration, eine Variable sein.
FindFirstFile ist nichts anderes als die API Funktion zu FindFirst.

Was willst Du überhaupt machen?

[Pseudemys Nelsoni]

hallo christian,

ich möchte per API prüfen ob eine datei existiert, also so eine art "FileExists"

[Christian Seehase]

Moin Pseudemys Nelsoni,

nimm als zweiten Parameter einfach einen Dummy, da Dich in diesem Falle nicht interessiert, was die Funktion zurückliefert.
Ist der Rückgabewert dann INVALID_HANDLE_VALUE dürfte die Datei nicht existieren.
Zur Sicherheit könntest Du dann noch mit GetLastError prüfen, ob hier der Rückgabewert ERROR_FILE_NOT_FOUND ist.

War der Aufruf allerdings erfolgreich musst Du noch, mit FindClose, die Suche wieder schliessen.

[Pseudemys Nelsoni]

hallo christian, was heisst einen "dummy" ? sonst jedenfalls schonmal danke für die erklärung :)

[MathiasSimmack]

So ähnlich sieht die Funktion bei Borland aus:

Delphi-Quellcode:

function fileexists(const szFilename: string): boolean;
var
  Handle   : THandle;
  FindData : TWin32FindData;
begin
  Handle   := FindFirstFile(pchar(szFilename),FindData);
  Result   := (Handle <> INVALID_HANDLE_VALUE);

  if(Result) then Windows.FindClose(Handle);
end;

Funktioniert auch für Ordner. ;)

[Luckie]

Ich glaube, du solltest dir mal meine Toolbox ankucken -> http://www.luckie-online.de/Downloads/DelphiUnits/

[Christian Seehase]

Moin Mathias,

Zitat:

Zitat von MathiasSimmack

Funktioniert auch für Ordner.

wobei mir einfällt, dass die D5 Version von DirectoryExists unter ME nicht richtig funktioniert. :?