Forum: Win32/Win64 API (native code)
Delphi
by SlpLow,
20. Nov 2013
Danke! Ich gab ein beispiel aus VC++, um es elegant.
Die Frage war, indem PChar variablen - pName := PChar('Windows 7 HOMEBASIC (x64)').
Und entfernen CR (#13#10) gelöst.
Forum: Win32/Win64 API (native code)
Delphi
by SlpLow,
19. Nov 2013
function SysErrorMessageEx(ErrorCode: Longint): string;
var
Len: Integer;
Buffer: array of char;
begin
Len := FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or
FORMAT_MESSAGE_IGNORE_INSERTS, nil, ErrorCode, 0, Buffer,
SizeOf(Buffer), nil);
SetString(result, Buffer, Len);
if (Len = 0) then
Forum: Win32/Win64 API (native code)
Delphi
by SlpLow,
19. Nov 2013
Versuchte...
Versuchte...
Speichert keine!
procedure TForm1.Button1Click(Sender: TObject);
const
CR = #13#10;
var
WimHandle, ImageHandle: THandle;