Ĺadny brzuch
czy program może utworzyć do siebie skrót w Autostarcie?? A w innym folderze??
a co google na to ?:)
http://delphi.about..../l/aa091499.htm
;-) prosze bardzo :) wszytko ladnie wyjasnione ;)
[edited]
ups :P zapomialbym dodac jak pobrac sciezke do autostartu :)
Jest ona zapisana w rejestrze pod kluczem
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ Shell Folders
Aby sie do niej dobrac, dodajemy do USES modul Registry
procedure TForm1.FormCreate(Sender: TObject); var r : TRegistry; begin r := TRegistry.Create; r.OpenKeyReadOnly('Software\Microsoft\Windows\CurrentVersion\Explorer\ Shell Folders'); r.ReadString('Startup'); //ta funckja zwraca sciezke do autosatrtu r.Free; end;
Użytkownik napster edytował ten post 09 kwiecień 2005, 09:18
Jeśli chcesz by program uruchamiał się przy starcie systemu, to nie lepiej Ci go dodać do rejestru w kluczu HKLM/Software/Microsoft/Windows/CurrenVersion/Run?
Jeśli chcesz by program uruchamiał się przy starcie systemu, to nie lepiej Ci go dodać do rejestru w kluczu HKLM/Software/Microsoft/Windows/CurrenVersion/Run?
Jeśli chcesz by program uruchamiał się przy starcie systemu, to nie lepiej Ci go dodać do rejestru w kluczu HKLM/Software/Microsoft/Windows/CurrenVersion/Run?
Zrobiłem tak ale po uruchomieniu następuje jekiś błąd w otczycie danych. A przy uruchomieniu z Autostartu nie!
Aha: Czy ktoś jak zmienić ten kod żeby zrobił ten skrót w Autostarcie?? Czy program może pobrac swoją ścieszkę dostępu??
Ten błąd to: Invalied filename.
Ten błąd to: Invalied filename.
AssignFile(tPlik, 'data\01tytul.txt'); Reset(tPlik); ReadLn(tPlik, t01); CloseFile(tPlik); AssignFile(gPlik, 'data\01godz.txt'); Reset(gPlik); ReadLn(gPlik, g01); CloseFile(gPlik); AssignFile(dPlik, 'data\01data.txt'); Reset(dPlik); ReadLn(dPlik, d01); CloseFile(dPlik); AssignFile(pPlik, 'data\01powiad.txt'); Reset(pPlik); ReadLn(pPlik, p01); CloseFile(pPlik); Lista.Items[0]:=t01; end;
i dużo więcej tego typi odwołań.........................
Zdeklaruj nową zmienną np. AppPath : String; i nadaj jej wartość AppPath := ExtractFilePath(Application.ExeName);, a polecenie AssignFile(..., ...); zmień na AssignFile(..., AppPath + '...'); to powinno załatwić sprawe błędu.
Użytkownik Kikiz edytował ten post 09 kwiecień 2005, 19:02
To co napisal Kikiz powinno rozwiazac problem.
BTW blad wystepowalby zawsze przy odpalaniu z dowolnego skrotu ;)
Niestety :blink: nie działa!!!!!!!!!
A jak zmienie w właściwościach skrótu by rozpoczynał w folderze z aplikacją to działa!!!
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
a co google na to ?:)
http://delphi.about..../l/aa091499.htm
;-) prosze bardzo :) wszytko ladnie wyjasnione ;)
[edited]
ups :P zapomialbym dodac jak pobrac sciezke do autostartu :)
Jest ona zapisana w rejestrze pod kluczem
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ Shell Folders
Aby sie do niej dobrac, dodajemy do USES modul Registry
procedure TForm1.FormCreate(Sender: TObject); var r : TRegistry; begin r := TRegistry.Create; r.OpenKeyReadOnly('Software\Microsoft\Windows\CurrentVersion\Explorer\ Shell Folders'); r.ReadString('Startup'); //ta funckja zwraca sciezke do autosatrtu r.Free; end;
Użytkownik napster edytował ten post 09 kwiecień 2005, 09:18
Jeśli chcesz by program uruchamiał się przy starcie systemu, to nie lepiej Ci go dodać do rejestru w kluczu HKLM/Software/Microsoft/Windows/CurrenVersion/Run?
Jeśli chcesz by program uruchamiał się przy starcie systemu, to nie lepiej Ci go dodać do rejestru w kluczu HKLM/Software/Microsoft/Windows/CurrenVersion/Run?
Jeśli chcesz by program uruchamiał się przy starcie systemu, to nie lepiej Ci go dodać do rejestru w kluczu HKLM/Software/Microsoft/Windows/CurrenVersion/Run?
Zrobiłem tak ale po uruchomieniu następuje jekiś błąd w otczycie danych. A przy uruchomieniu z Autostartu nie!
Aha: Czy ktoś jak zmienić ten kod żeby zrobił ten skrót w Autostarcie?? Czy program może pobrac swoją ścieszkę dostępu??
Ten błąd to: Invalied filename.
Ten błąd to: Invalied filename.
AssignFile(tPlik, 'data\01tytul.txt'); Reset(tPlik); ReadLn(tPlik, t01); CloseFile(tPlik); AssignFile(gPlik, 'data\01godz.txt'); Reset(gPlik); ReadLn(gPlik, g01); CloseFile(gPlik); AssignFile(dPlik, 'data\01data.txt'); Reset(dPlik); ReadLn(dPlik, d01); CloseFile(dPlik); AssignFile(pPlik, 'data\01powiad.txt'); Reset(pPlik); ReadLn(pPlik, p01); CloseFile(pPlik); Lista.Items[0]:=t01; end;
i dużo więcej tego typi odwołań.........................
Zdeklaruj nową zmienną np. AppPath : String; i nadaj jej wartość AppPath := ExtractFilePath(Application.ExeName);, a polecenie AssignFile(..., ...); zmień na AssignFile(..., AppPath + '...'); to powinno załatwić sprawe błędu.
Użytkownik Kikiz edytował ten post 09 kwiecień 2005, 19:02
To co napisal Kikiz powinno rozwiazac problem.
BTW blad wystepowalby zawsze przy odpalaniu z dowolnego skrotu ;)
Niestety :blink: nie działa!!!!!!!!!
A jak zmienie w właściwościach skrótu by rozpoczynał w folderze z aplikacją to działa!!!