[ princ tame @ 02.01.2018. 17:16 ] @
Trebao bi nešto ovako;
Code:
https://www.youtube.com/watch?v=BWx0i-6j3U8

U delfiju, dal neko zna da mi pomogne ili da napiše šta je potrebno sve.
Hvala
[ savkic @ 02.01.2018. 20:20 ] @
> U delfiju, dal neko zna da mi pomogne ili da napiše šta je potrebno sve.

Zelis da napravis neku vrstu message box generatora gde ces birati ikonicu i tekst a rezultat ce biti samostalni exe koji kad se pokrene prikaze zeljenu poruku?

To nije tesko ali moze biti komplikovano za pocetnika, trebaju ti dve aplikacije, generator exe i sablon exe. To je slican princip koji koristi zip kada pravi samoraspakujucu arhivu, taj finalni exe je samo arhiva koja je dodata na osnovni sablon (stub) exe.
U tvom slucaju generator exe treba da doda neki sadrzaj (sam smisli format) na kraj sablon exea, kao da spajas dva fajla jedan na drugi preko "copy /b" dos komande. Finalni exe kad se startuje treba da procita taj sadrzaj koji je snimljen na njegovom kraju rastumaci ga i prikaze sta treba.
[ Milan Milosevic @ 03.01.2018. 11:04 ] @
Programcic ima priključni fajl sa odabranim opcijama i tekstom poruke MsgBoxStub.stb
Kad odabereš koju će ikonu i poruku da prikaže to se snimi u ovaj fajl i kasnije čita podešavanja iz njega.
Code:

var
  Form1: TForm1;
  Odabrano:Byte = 0;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
case Odabrano of
 0: MessageDlg('Test',mtWarning,[mbYes,mbNo],0);
 1: MessageDlg('Test',mtError,[mbYes,mbNo],0);
 2: MessageDlg('Test',mtInformation,[mbYes,mbNo],0);
end;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
 Odabrano:=0;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
  Odabrano:=1;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
  Odabrano:=2;
end;


sada Odabrano i text poruke možeš da snimiš u taj fajl
[ tkaranovic @ 03.01.2018. 15:56 ] @
Na klipu se izgleda koriste "Resources". Meni izgleda kao je autor hteo da napravi neku magiju.
Prvo napravi program koji prikazuje poruku sa vrednostima koje su upisani u resurse.
Tom programu se promeni eksenzija u MsgBoxStub.stb.
Onda se kopira u program koji ce biti menjan. Moze da se vidi da su iste velicine.
Onda se promeni na ovaj nacin:

https://msdn.microsoft.com/en-...desktop/ms648008(v=vs.85).aspx

Inace izvrsni fajlovi imaju malu velicinu jer su kompajlirani tako da koriste delphi pakete koji su instalirani u Windowsu.
Sa d2007 moze da se napravi najmanji program velicine 4,7KB a sa XE7 632KB.

I treba napraviti:

https://stackoverflow.com/ques...eating-forms-without-using-vcl


Naravno, to sve treba raditi ako se hoce napraviti klip pun magije ;)