Ĺadny brzuch
Jak mogę zrobić autostart programu? Tzn. nie chodzi mi o to, żeby program startował z systemem operacyjnym, tylko wyłączył się i ponownie włączył. Da się to jakoś zapisać do pamięci?
Z góry dziękuję za pomoc!
Jak mogę zrobić autostart programu? Tzn. nie chodzi mi o to, żeby program startował z systemem operacyjnym, tylko wyłączył się i ponownie włączył. Da się to jakoś zapisać do pamięci?
Z góry dziękuję za pomoc!
1. Odpalasz drugą kopie z jakimś parametrem, który nakazuje jej czekać na zamknięcie się poprzedniej
2. Odpalasz program pomocniczy, który czeka na zamknięcie wszystkich kopii danego programu i dopiero odpala następną
Pierwsza metoda chyba najprostsza i najwygodniejsza.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin application.terminate; WinExec(PCHAR(application.exename),SW_SHOW); end; procedure TForm1.FormCreate(Sender: TObject); begin showmessage('lol'); end; end.
? ;)
Powinno działać :) Wielkie THX :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Z góry dziękuję za pomoc!
Jak mogę zrobić autostart programu? Tzn. nie chodzi mi o to, żeby program startował z systemem operacyjnym, tylko wyłączył się i ponownie włączył. Da się to jakoś zapisać do pamięci?
Z góry dziękuję za pomoc!
1. Odpalasz drugą kopie z jakimś parametrem, który nakazuje jej czekać na zamknięcie się poprzedniej
2. Odpalasz program pomocniczy, który czeka na zamknięcie wszystkich kopii danego programu i dopiero odpala następną
Pierwsza metoda chyba najprostsza i najwygodniejsza.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin application.terminate; WinExec(PCHAR(application.exename),SW_SHOW); end; procedure TForm1.FormCreate(Sender: TObject); begin showmessage('lol'); end; end.
? ;)
Powinno działać :) Wielkie THX :)