Hallo City Light,
wenn ich Dich richtig verstehe, dann willst Du Dateien umbennenen, samt Extension. Das würde damit gehen. Auf Open- und Save-Dialog bist Du ja nicht angewiesen, Du kannst es ja auch alles als Parameter übergeben.
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
if SaveDialog1.Execute then
begin
RenameFile(ExtractFileName(OpenDialog1.FileName), //Hier liest Du also die .upd ein
ChangeFileExt(SaveDialog1.FileName, '.exe')); //und hier wandelst Du es in eine .exe
end;
end;
end;
Oder hab ich da was falsch verstanden?
Grüsse, Daniel
