Jak wrzucuć podczas instalacji programu napisanego w delphi ikonę na pulpit uzytkownika ?
Wychodzi mi to w Millenium, a w XP - nie.
W czym robiony instalator (a nie sam program)? Też w Delphi?
Agnieszka2006 napisał(a)
Wychodzi mi to w Millenium, a w XP - nie.
jakiś błąd, komunikat, cokolwiek??
Być może to pomoże:
Poniższy przykład pokazuje jak dodać skróty na desktop i menu Start w Windows 95 i Windows NT 4.0. Skrót zostanie dodany w jednym z tych miejsc (patrz kod). Położenie desktopu i menu Start pobierane jest z rejestru (z gałęzi HKEY_CURRENT_USER):
Software\MicroSoft\Windows\CurrentVersion\Explorer\Shell Folders
uses ShlObj, ActiveX, ComObj, Registry;
procedure TForm1.Button1Click(Sender: TObject);
var MyObject:IUnknown;
MySLink:IShellLink;
MyPFile:IPersistFile;
FileName:String;
Directory:String;
WFileName:WideString;
MyReg:TRegIniFile;
begin
MyObject:=CreateComObject(CLSID_ShellLink);
MySLink:=MyObject as IShellLink;
MyPFile:=MyObject as IPersistFile;
FileName:='NOTEPAD.EXE';
with MySLink do
begin
SetArguments('C:\AUTOEXEC.BAT');
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
end;
MyReg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');
// Poniższe dodaje skrót do desktopu
Directory := MyReg.ReadString('Shell Folders','Desktop','');
// A to do menu Start
// Directory := MyReg.ReadString('Shell Folders','Start Menu','')+
// '\Whoa!';// CreateDir(Directory);
WFileName := Directory+'\FooBar.lnk';
MyPFile.Save(PWChar(WFileName),False);
MyReg.Free;
end;
Źródło informacji: Delphi TI 3234.
nie wiem, moze to pomoze:
...create a shortcut in the Startmenu, on the Desktop...
http://www.swissdelphicenter.ch/torry/showcode.php?id=317
Wszystko w delphi.
Umieszcza skrót w menu start, ale nie na pulpicie. Pulpit w XP ma specjalne adresy (klienta).
Pomoglo TO co napisal Cimak. Dzięki !!!
A nie lepiej uzyć Inno Setup ?
Agnieszka2006 napisał(a)
Wszystko w delphi.
Umieszcza skrót w menu start, ale nie na pulpicie. Pulpit w XP ma specjalne adresy (klienta).Pomoglo TO co napisal Cimak. Dzięki !!!
.....................................................
ALE !!!
Nie robi się skrót na pulpicie, tylko ikonka.
Nie chce się otworzyć mój program w Delhpi. Pisze - nie jest to aplikacja Win32.
[!!!]
Agnieszka2006 napisał(a)
Agnieszka2006 napisał(a)
Wszystko w delphi.
Umieszcza skrót w menu start, ale nie na pulpicie. Pulpit w XP ma specjalne adresy (klienta).Pomoglo TO co napisal Cimak. Dzięki !!!
.....................................................
ALE !!!
Nie robi się skrót na pulpicie, tylko ikonka.
Nie chce się otworzyć mój program w Delhpi. Pisze - nie jest to aplikacja Win32.
[!!!]
....................................................................
Przepraszam !!! Działa wspaniale!!! Podalam zla ściezkę do programu.
Ale mi wstyd !!! :-[