Ressourcen mit WinAPI laden

[3_of_8]

Hmm, ich habe es mal selber rumprobiert und hab meinen Code nach so abgeändert:

Delphi-Quellcode:

program JavaLaunch;

{$R 'jardata.res'}

uses
   Windows,
  ShellAPI,
  Classes;

var f: HFILE;
     Path, FileName: array[0..Max_Path] of char;
     hRes : HRSRC;
     hGlob : HGLOBAL;
      Buffer: String;
    dummy: DWORD;
    fstruct: _OFSTRUCT;
begin
  try
    hRes:=FindResource(HINSTANCE,'jardata', 'text');
    setlength(Buffer, SizeOfResource(HINSTANCE, hRes));
    hGlob:=LoadResource(HINSTANCE, hRes);
    Buffer:=String(PChar(LockResource(hGlob)));
  except
    on EResNotFound do exit;
  end;
  GetTempPath(Max_Path,Path);
  GetTempFileName(Path, '~tm', 0, FileName);
  Path:='C:\';
  FileName:='C:\blubb.jar';
  fstruct.cBytes:=sizeof(fstruct);
  f:=OpenFile(@FileName[0], fstruct, OF_WRITE);
  WriteFile(f, buffer, length(buffer), dummy, nil);
  CloseHandle(f);
  ShellExecute(0, 'open', 'java', PChar('-jar '+FileName), Path, 0);
end.

Was ist daran falsch? Buffer ist nur 4 Bytes lang und die Datei wird gar nicht geschrieben.