AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

FindFirstFile NIL übergeben?

Ein Thema von Pseudemys Nelsoni · begonnen am 28. Jun 2004 · letzter Beitrag vom 28. Jun 2004
Antwort Antwort
MathiasSimmack
(Gast)

n/a Beiträge
 
#1

Re: FindFirstFile NIL übergeben?

  Alt 28. Jun 2004, 15:57
Also, ich habe eben mal nachgeschaut. In D5 benutzt Borland die API-Funktion "GetFileAttributes":
Delphi-Quellcode:
function DirectoryExists(const Name: string): Boolean;
var
  Code: Integer;
begin
  Code := GetFileAttributes(PChar(Name));
  Result := (Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0);
end;
Jetzt wäre aber die Frage, warum das bei Windows ME nicht klappen soll. Im PSDK finden sich jedenfalls keine speziellen Hinweise zu ME. Bei Delphi 7 sieht die Funktion aber genauso aus wie oben gezeigt. Demzufolge müsste ein D7-Programm das gleiche Problem haben. Hat jemand ME und kann das bestätigen?

Ansonsten würde ich, wenn´s unbedingt eine eigene Funktion für Verzeichnisse sein soll, folgendes vorschlagen:
Delphi-Quellcode:
function DirectoryExists(const Directory: string): boolean;
var
  Handle : THandle;
  FindData : TWin32FindData;
begin
  Handle := FindFirstFile(pchar(Directory),FindData);
  Result := (Handle <> INVALID_HANDLE_VALUE) and
    (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <> 0);

  if(Handle <> INVALID_HANDLE_VALUE) then
    Windows.FindClose(Handle);
end;
@Pseudemys Nelsoni: Doch, denn "FileExists" hat nichts mit der VCL zu tun. Du kannst die SysUtils- und ähnliche Units auch in nonVCL/Konsolenprojekte einbinden. Es ist eben nur so, dass das Programm dadurch etwas größer wird, weil im Hintergrund bestimmte Dinge initialisiert werden, usw.
Wenn du auch auf die SysUtils usw. verzichten willst, dann kommst du um die API-Funktionen nicht herum.

Und mit "Rad neu erfinden" meine ich, dass du bspw. Fragen stellst, die ich (bei Kenntnis der Win32-API-Tutorials als Beispiel) nicht stellen würde, weil du dort schon die Antworten findest. Zudem liegen bei den Samples der Tutorials ebenfalls diverse erweiterte bzw. gepatchte Units bei. Eine davon enthält auch die o.g. "fileexists"-Funktion.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz