Leere Datei erstellen

Sprache: Deutsch
Programmiersprache: Delphi
Veröffentlicht von: pumi
Letzte Änderung: 16.05.2006
Aufrufe: 1912

Beschreibung

Hier ein Beispiel, wie man eine leere Datei mittels API erstellt.

Code

Zeilennummern anzeigen

1 procedure TForm1.btnCreateFileClick(Sender: TObject); 2 var hFile: THandle; 3 begin 4 hFile := CreateFile('C:\MYFILE.TXT',0,0,0,CREATE_NEW,FILE_ATTRIBUTE_NORMAL,0); 5 case hFile of 6 INVALID_HANDLE_VALUE: MessageBox(0,'File exist','Error',MB_OK); 7 end; 8 CloseHandle(hFile); 9 end;

Noch kein Kommentar vorhanden

Dieses Snippet kommentieren

Name *

E-Mail (wird nicht angezeigt) *

Website

Kommentar *

Sicherheitscode *