Frage : FileExists WinAPI - Delphi

Hallo soll Experten,
I Notwendigkeit, zu können WinAPI verwenden, um zu überprüfen, ob Akte oder nicht existiert,
other Weise Aktenalter und feststellen, wenn das Alter oder gültig ist, nicht (- 1 = nicht existiert),

- Größe metter erhalten.
- sollte von einem DLL nicht von SysUtils benannt werden, fand das

I gebildet worden irgendeine Forschung und mich nur VB Code mit WinAPI
so, wenn anyboddy Dose, sie zu übersetzen oder sie nach Delphi zu tragen, das ich verry gracefull

http://www.freevbcode.com/ ShowCode.asp bin? ID=345

Thanks im advace,
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
Declarations:
'#VBIDEUtils# **************************************************
'* Programmierer-Name: Waty Thierry
'* Web site: www.geocities.com/ResearchTriangle/6311/
'* eMail: [email protected]
'* Datum: 28/06/99
'* Zeit: 12:24
'**************************************************************
'* Anmerkungen: API FileExist
'*
'*
'****************************************************************

Wahl ausdrücklich

Privates Const INVALID_HANDLE_VALUE = -1
Privates Const MAX_PATH = 260

Private Art FILETIME
   dwLowDateTime als lang
   dwHighDateTime als lang
Enden-Art

Private Art WIN32_FIND_DATA
   dwFileAttributes als lang
   ftCreationTime als FILETIME
   ftLastAccessTime als FILETIME
   ftLastWriteTime als FILETIME
   nFileSizeHigh als lang
   nFileSizeLow als lang
   dwReserved0 als lang
   dwReserved1 als lang
   cFileName als Schnur * MAX_PATH
   cAlternate als Schnur * 14
Enden-Art

Privat Funktion FindFirstFile Bibliothek „kernel32“ _ erklären
   Alias „FindFirstFileA“ _
   (ByVal lpFileName als Schnur, _
   lpFindFileData als WIN32_FIND_DATA) als lang

Privat Funktion FindClose Bibliothek „kernel32“ _ erklären
   (ByVal hFindFile als lang) als lang

Code:
'Verbrauch: 
'schwache bFileExists, wie Boolesch
'bFileExists = FileExists („c:\win\system\comctl32.dll ")
Allgemeine Funktion FileExists (sSource als Schnur) wie Boolesch
   
   Schwaches WFD als WIN32_FIND_DATA
   Schwaches hFile als lang
   
   hFile = FindFirstFile (sSource, WFD)
   FileExists = hFile <> INVALID_HANDLE_VALUE
   
   Anruf FindClose (hFile)
   
Enden-Funktion

Antwort : FileExists WinAPI - Delphi

Filezilla
http://filezilla-project.org/

Wenn Firefox, FireFTP verwendet:
http://fireftp.mozdev.org/
Weitere Lösungen  
 
programming4us programming4us