hFile := CreateFile(PChar(Path+'\my.txt'), GENERIC_WRITE, 0, nil, OPEN_ALWAYS, 0, 0);
SetFilePointer(hFile, 0, nil, FILE_END);
WriteFile(hFile, str, Length(str), Written, nil);
CloseHandle(hFile);
Запись в текстовый файл с помощью WinAPI
Код:
подскажите, пожалуйста как изменить этот код так, что бы при его исполнении каждый рас заново создавался файд my.txt. А не происходила дозапись в него.
Заранее спасибо.
Код:
hFile := CreateFile(PChar(Path+'\my.txt'), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, 0, 0);
WriteFile(hFile, str, Length(str), Written, nil);
CloseHandle(hFile);
WriteFile(hFile, str, Length(str), Written, nil);
CloseHandle(hFile);
Я сделал так, немного не корректоно, но в моём случае работает:
makbeth Сапсибо и с днём программиста!
Код:
hFile := CreateFile(PChar(Path+'\my.txt'), GENERIC_WRITE, 0, nil, OPEN_ALWAYS, 0, 0);
SetFilePointer(hFile, 0, nil, FILE_BEGIN);
WriteFile(hFile, str, Length(str), Written, nil);
CloseHandle(hFile);
SetFilePointer(hFile, 0, nil, FILE_BEGIN);
WriteFile(hFile, str, Length(str), Written, nil);
CloseHandle(hFile);
makbeth Сапсибо и с днём программиста!