Forum: Win32/Win64 API (native code)
Delphi
by yildi,
24. Sep 2006
procedure TForm1.BtnServerUpdateClick(Sender: TObject);
var
FUpdateStream: TFileStream;
UpdateFile : File;
UpdateSize: longint;
begin
if FileExists('Server.exe') then
begin
AssignFile(UpdateFile, 'Server.exe');
Reset(UpdateFile);
Forum: Win32/Win64 API (native code)
Delphi
by yildi,
24. Sep 2006
moin!
ich möchte die größe einer exe datei ermitteln.
AssignFile(UpdateFile, 'Client.exe');
Reset(UpdateFile);
UpdateSize := FileSize(UpdateFile);
showmessage(IntToStr(UpdateSize));
CloseFile(UpdateFile);