Leere Datei erstellen

Language: Deutsch
Programming Language: Delphi
Published by: pumi
Last Update: 5/16/2006
Views: 1810

Description

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

Code

Display line numbers

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;

No comments avaiable

Add a comment

Name *

Email (won't be displayed) *

Website

Comment *

Sicherheitscode Security Code *