Ĺadny brzuch
chce napisać taki program, że jest archimum rar. Wupakowuje go śa w nim dwa programy. Uruchamiam jeden z nich i po nacisnięciu buttona tamten drugi program zostanie skopiowany do Autostartu ? A dało by sie jakoś zrobić aby był jeden plik i bo anciśnieciu buttona z niego kopiował by się nowy program do auto startu (tzn. na początku by był jeden plik).
Wojna nigdy sie nie kończy, dla tych co walczyli.
Czy dobrze rozumiem. Chcesz aby twoja aplikacja kopiowała samą siebie do katalogu autostartu?
----------------
Zawsze jest schemat
----------------
On chce napisać program który się rozdwoi i skoipiuje do autostartu. Chyba.:) Da się walić ile chcesz plików do jednego exe przez zasoby.
---------------------------------
..::NeVeS::..
---------------------------------
Życie to śmierć, śmierć to życie.
Tak chce napisać aplikacje która sie rozdwoi jeżeli sie da to jakoś prosto zrobić.
A jak sie nie da tego prosto zrobić to wystarczy mi żeby kopiowała inną aplikacje do autostartu.
Wojna nigdy sie nie kończy, dla tych co walczyli.
var
a,b:string;
Rekord:TSHFileOpStructA;
a:='plik_do_kopiowania.exe';
b:='c:windowsmiejsce_doceloweplik_do_kopiowania.exe';
copyfile(pchar(a),pchar(B),true);
----------------
Zawsze jest schemat
----------------
Rozdwojenie aplikacji:):
1 Weź brcc32.exe i skopiuj go do nowego folderu.
2 Do tego folderu dorzuć też to co chcesz włączyć do jednego exe.
3 Stwórz w tym katalogu plik EXE.rc - i edytuj go pod notatnikiem
4 ASCII RCDATA "plik.exe" - to wpisujesz w notatniku
5 Kompilujesz plik .rc na res (brcc32.exe EXE.rc)
6 Mamy juz aplikacje w zasobie, żeby ją "wypakować":
var
Res:TResourceStream;
Begin
Res:=TResourceStream.creat(hlinstance,'ASCII',RT_RCDATA,plik.exe);
Res.savetofile.('c:coś_tamplik.exe');
Res.free.
End
I tym spososobem program się rozdwoił ;)
---------------------------------
..::NeVeS::..
---------------------------------
Życie to śmierć, śmierć to życie.
cytat:podrurznik napisał:
var
a,b:string;
Rekord:TSHFileOpStructA;
a:='plik_do_kopiowania.exe';
b:='c:windowsmiejsce_doceloweplik_do_kopiowania.exe';
copyfile(pchar(a),pchar(B),true);
----------------
Zawsze jest schemat
----------------
Rekord:TSHFileOpStructA; <<< to jest nie potrzebne ;)
---------------------------------
..::NeVeS::..
---------------------------------
Życie to śmierć, śmierć to życie.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Wojna nigdy sie nie kończy, dla tych co walczyli.
Czy dobrze rozumiem. Chcesz aby twoja aplikacja kopiowała samą siebie do katalogu autostartu?
----------------
Zawsze jest schemat
----------------
On chce napisać program który się rozdwoi i skoipiuje do autostartu. Chyba.:) Da się walić ile chcesz plików do jednego exe przez zasoby.
---------------------------------
..::NeVeS::..
---------------------------------
Życie to śmierć, śmierć to życie.
Tak chce napisać aplikacje która sie rozdwoi jeżeli sie da to jakoś prosto zrobić.
A jak sie nie da tego prosto zrobić to wystarczy mi żeby kopiowała inną aplikacje do autostartu.
Wojna nigdy sie nie kończy, dla tych co walczyli.
var
a,b:string;
Rekord:TSHFileOpStructA;
a:='plik_do_kopiowania.exe';
b:='c:windowsmiejsce_doceloweplik_do_kopiowania.exe';
copyfile(pchar(a),pchar(B),true);
----------------
Zawsze jest schemat
----------------
Rozdwojenie aplikacji:):
1 Weź brcc32.exe i skopiuj go do nowego folderu.
2 Do tego folderu dorzuć też to co chcesz włączyć do jednego exe.
3 Stwórz w tym katalogu plik EXE.rc - i edytuj go pod notatnikiem
4 ASCII RCDATA "plik.exe" - to wpisujesz w notatniku
5 Kompilujesz plik .rc na res (brcc32.exe EXE.rc)
6 Mamy juz aplikacje w zasobie, żeby ją "wypakować":
var
Res:TResourceStream;
Begin
Res:=TResourceStream.creat(hlinstance,'ASCII',RT_RCDATA,plik.exe);
Res.savetofile.('c:coś_tamplik.exe');
Res.free.
End
I tym spososobem program się rozdwoił ;)
---------------------------------
..::NeVeS::..
---------------------------------
Życie to śmierć, śmierć to życie.
cytat:podrurznik napisał:
var
a,b:string;
Rekord:TSHFileOpStructA;
a:='plik_do_kopiowania.exe';
b:='c:windowsmiejsce_doceloweplik_do_kopiowania.exe';
copyfile(pchar(a),pchar(B),true);
----------------
Zawsze jest schemat
----------------
Rekord:TSHFileOpStructA; <<< to jest nie potrzebne ;)
---------------------------------
..::NeVeS::..
---------------------------------
Życie to śmierć, śmierć to życie.