Habe ich doch tatsächlich übersehen....
Delphi-Quellcode:
function GetFileSize(szFile : PChar) : Int64;
var fFile : THandle;
wfd : TWIN32FINDDATA;
begin
Result := -1;
fFile := FindFirstfile(PChar(szFile), wfd);
if fFile = INVALID_HANDLE_VALUE then
Exit;
Result := (wfd.nFileSizeHigh * (Int64(MAXDWORD) + 1)) + wfd.nFileSizeLow;
Windows.FindClose(fFile);
end;
Rufe ich die wie oben auf, bloß dass ich anstelle von PWideChar einfach PChar nehme ?
TreeData.fGroesse := BytesToStr(GetFileSize(PChar(Msg.LParam)));