Pc hra a složka INT v Program Files – Delphi – Fórum – Programujte.com

Zdravím,

jde o hru a DELPHI . Jak mám do složky pomocí DELPHI přepsat soubory ? Složka má nazev INT a v ní jsou soubory skoncovkou .int . Cesta je - C:\Program Files\InfiniteLoop\DS9TheFallen\int . Ta složka INT je
velká zhruba 400 Kb. Instalátor mám. Děkuji.

uses System.IOUtils;
...
TFile.Copy('odkud', 'kam', true);

Připojen obrázek.

Kam to mám dát ? Děkuji.

IOUtils do uses na začátku souboru a Copy do funkce obsluhující kliknutí na Install.

Ale než psát vlastní installer, tak možná mrkni na Inno Setup, NSIS, Windows Installer a podobné programy pro vytváření instalátoru.

Inno Setup znám. K vytvoření vlastního instalátoru mám důvod. Instalátor je skoro hotov jen se mi nedaří vyměnit složku INT se soubory. Soubory jsou anglické. Chci je vyměnit za české. Děkuji.

Instalátor

___________________________________________

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, ShellAPI;

type
  TForm1 = class(TForm)
    Image1: TImage;
    lInstaluj: TLabel;
    lKonec: TLabel;
    procedure lKonecClick(Sender: TObject);
    procedure lKonecMouseEnter(Sender: TObject);
    procedure lKonecMouseLeave(Sender: TObject);
    procedure lInstalujMouseEnter(Sender: TObject);
    procedure lInstalujMouseLeave(Sender: TObject);
    procedure lInstalujClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{-----------------------------------------------------------------
  Kliknuti na Konec ukoncuje aplikaci
------------------------------------------------------------------}
procedure TForm1.lKonecClick(Sender: TObject);
begin
  Close;
end;

{-----------------------------------------------------------------
  Najedu mysi nad label KONEC - zmenim barvu na Silver
------------------------------------------------------------------}
procedure TForm1.lKonecMouseEnter(Sender: TObject);
begin
  lKonec.Font.Color := clSilver;
end;

{-----------------------------------------------------------------
  Odjedu mysi z labelu KONEC -. vratim barvu na Aqua
------------------------------------------------------------------}
procedure TForm1.lKonecMouseLeave(Sender: TObject);
begin
  lKonec.Font.Color := clAqua;
end;

{-----------------------------------------------------------------
  Najedu mysi nad label INSTALUJ - zmenim barvu na Silver
------------------------------------------------------------------}
procedure TForm1.lInstalujMouseEnter(Sender: TObject);
begin
  lInstaluj.Font.Color :=  clSilver;

end;

{-----------------------------------------------------------------
  Odjedu mysi z labelu INSTALUJ -. vratim barvu na Aqua
------------------------------------------------------------------}
procedure TForm1.lInstalujMouseLeave(Sender: TObject);
begin
  lInstaluj.Font.Color :=  clAqua;
end;

#6 ZAČÁTEČNÍKDE
no vlastní instalace je v lInstalujClick ne?

co se týče náhrady souborů asi bych jazyky rozlišil pojmenováním nebo složkou, také "program files" složky mívají určitá specifika ohledně oprávnění,

Co se týče náhrady, postupoval bych následovně nejdříve bych zálohoval původní soubor přesunem nebo kopírováním+zmanzání a až poté nahrál nový.

Případně bych ini soubory rozbalil instalátorem do pracovní složky, a použil na to systémový příkaz xcopy.

Postupů je vícero každý používá svůj

Jeden člověk mi dal toto a vytvoří se tam prazdná složka INT .

procedure TForm1.lInstalujClick(Sender: TObject);
var
  ShOp: TSHFileOpStruct;
  mySlozka, myZdroj: string;
begin
  mySlozka := 'c:\program files\infiniteloop\DS9TheFallen\int'; // upravte si cestu a jmeno slozky
  { kod na smazani slozky vcetne obsahu }
  ShOp.Wnd := Self.Handle;
  ShOp.wFunc := FO_DELETE;
  ShOp.pFrom := PChar(mySlozka + #0);
  ShOp.pTo := nil;
  ShOp.fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
  SHFileOperation(ShOp); // tento prikaz smaze slozku

  { vytvorim slozku }
  if not CreateDir(mySlozka) then
  begin
    ShowMessage('Nepodařilo se vytvořit složku:'#13 + mySlozka);
    Exit;
  end
  else
  begin
    { nakopiruju ze slozky int umistene u programu do mySlozka }
    myZdroj := ExtractFilePath(Application.ExeName) + 'int\*.*';

    ShOp.wFunc := FO_COPY;
    ShOp.pFrom := PChar(myZdroj + #0);
    ShOp.pTo := PChar(mySlozka + #0);
    ShOp.fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_FILESONLY;
    SHFileOperation(ShOp); // tento prikaz smaze slozku

    ShowMessage('Instalace byla dokončena');
  end;
end;

end.

Nejsem si jistý správností použití PChar na dočasné proměnné, ale ten kdo ti poradil asi víc, co dělá. Jinak tam nic okatého nevidím.

Možná bude problém v tom, že to kopíruje ze složky int ve složce, kde je exáč. Nevím, v čem to kompiluješ, ale pravděpodobně umístění exáče bude něco jako win32\debug\program.exe a win32\release\program.exe. Takže tam musí být i ta tvoje složka int (nebo přesuň exáč).

Používám DELPHI 7 32 bit.

Já si Windows a Delphi instalovat nebudu, abych se podíval, kam se to kompiluje :-) Byl to jen tip, který si musíš vyhodnotit sám.

Nevím, že nemáš Winy.

Připojen obrázek.

Já tam vidím int a Project1.exe ve stejné složce, takže v tom asi problém nebude.

Pokud trváš na tom, že exáč je v system, tak tam musí být i ta zdrojová složka int. 

myZdroj := ExtractFilePath(Application.ExeName) + 'int\*.*';

A SHFileOperation v případě chyby vrací chybový kód, tak z něj by možná šlo něco vyčíst.

Připojen obrázek.

Je řeč o tom tvém instalátoru.

• Ten smaže "c:\program files\infiniteloop\DS9TheFallen\int"
• Znovu vytvoří "c:\program files\infiniteloop\DS9TheFallen\int"
• A zkopíruje obsah "<slozka_kde_je_exac_instalatoru>\int" do "c:\program files\infiniteloop\DS9TheFallen\int".

Třetí bod je to, co nefunguje. Tak se ptám jestli tam tu zdrojovou složku máš.

První obrázek naznačuje, že možná ten instalátor máš v cílové složce, což samozřejmě nemůže fungovat. A druhý obrázek je úplně na hovno.

Já tam vidím int a Project1.exe ve stejné složce, takže v tom asi problém nebude.

To jsem se nepodíval na tu cestu. Nakonec v tom ten problém asi bude, že zdrojový a cílový int jsou ta samá složka.

Co je ve složce C:\Program Files\InfiniteLoop\DS9TheFallen .

Připojen obrázek.

http://leteckaposta.cz/515929543

Jeden člověk mi poskytl řešení a funguje. Dám sem odkaz.

https://datoid.cz/qIqv2n/reseni-zip