Danke City Lite das hat soweit geklappt doch die *.res erzeugen mit extractfilepath(application.exename) also
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var NameDerExe:string;
begin
NameDerExe:='d:\uhr.exe'; // oder 'test.dll' oder..oder..
if res_erzeugen(NameDerExe,extractfilepath(application.exename))<=32
then showmessage('Fehler aufgetreten');
end;
geht nich ich musste es mit einen leeren string machen
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var NameDerExe:string;
begin
NameDerExe:='d:\uhr.exe'; // oder 'test.dll' oder..oder..
if res_erzeugen(NameDerExe,'')<=32
then showmessage('Fehler aufgetreten');
end;