Patchen

[Daniel B]

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