Anonymní profil ZAČÁTEČNÍKDE – Programujte.com

Jak se v DELPHI otevře Dokument ve formátu RTF ? Děkuji.

Upřesním to. Pokud nebudu mít hru nainstalovánu, aby můj patch házel tyto hlášky. Děkuji za pomoc.

Připojen obrázek.

Připojen obrázek.

Zdravím,

potřeboval bych informace, jak to udělat v DELPHI 7, když se hra nainstaluje, tak si zapisuje do registrů. Viz screenshoty z patche. Děkuji za pomoc.

#18 gna
Zdravím,

složka jde vytvořit. Rozbil se mi počítač a tak jsem u něj pár dní nebyl. Jak mám postupovat, aby ve složce DATA byl určitý soubor. Děkuji.

Připojen obrázek.

Mám o jedné osoby objednanou knížku. Jsem zvědav, co v ní je.

Ten Váš příkaz mi funguje. Děkuji. Nejsem blbej, ale chybí mi zkušenosti. Ještě jednou děkuji.

V literatuře, co mám, nic není. Na YouTube jsou jen formuláře a to nechci. Zdroják.

Vytvoření složky na disku C:\ má vypadat jak ten příkaz? Děkuji.

https://datoid.cz/RUgjzh/create-dir-star-trek-jde-zip/VRRzKsi9FERztWog

Popište mi ten kód z cestou - C:\Program Files\Raven\Star Trek Voyager Elite Force\BaseEF . Děkuji.

Nejde mi to, dejte mi to po lopatě. Děkuji.

Jak mám postupovat, aby se ve složce BaseEF vytvořila složka s názvem DATA se souborem PAK2.PK3 ?
Program DELPHI normálně zapisuje do Program Files . Soubor PAK2.PK3 mám. Potřebuji zdrojový kód.
Moc děkuji za poskytnutí.

Jsem DOSem nepolíbený. Začínal jsem na XP a to se psal rok 2005. Děkuji za vysvětlení.

Dejte mi ukázku. Vyzkouším ji. Děkuji.

Nevrací nic. Děkuji.

Nejde mi vytvořit složku. Děkuji.

Zdravím,

potřebuji v DELPHI vytvořit složku a v ní soubor PAK2.PK3 . Soubor mám. Nedaří se mi to.

V této cestě C:\Program Files\Raven\Star Trek Voyager Elite Force\BaseEF\ . Za BaseEF .

Děkuji.

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

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

Instalátor dělám pro sebe a chci ho dát na WEB . DS9 The Fallen je 32 bitová hra.

Mám 32 bitová Windows XP Pro a DELPHI 7 .

Zdravím,

jak se pomocí DELPHI najde aplikace v registrech ? Jak zjistit, kde je daná aplikace nainstalována ? Správně  by se instalátor měl při spuštění podívat do registru Windows a sám zjistit, kde je aplikace nainstalována. Děkuji.

http://leteckaposta.cz/515929543

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

Připojen obrázek.

Připojen obrázek.

Připojen obrázek.

Nevím, že nemáš Winy.

Používám DELPHI 7 32 bit.

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.

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

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;

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.

Připojen obrázek.

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

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.