tanpa banyak kata..
intinya membaut shortcut di desktop aplikasi yang kita buat..
 Â
uses ShlObj, ShellApi..
procedure CreateShortCut(Source : String);
var
IObject : IUnknown;
ISLink : IShellLink;
IPFile : IPersistFile;
PIDL : PItemIDList; InFolder :
array[0..MAX_PATH] of Char;
TargetName : String;
LinkName : WideString;
begin
TargetName := Source;
IObject := CreateComObject(CLSID_ShellLink) ;
ISLink := IObject as IShellLink;
IPFile := IObject as IPersistFile;
with ISLink do begin
SetPath(pChar(TargetName)) ;
SetWorkingDirectory(pChar(ExtractFilePath(TargetName))) ;
end;
SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, PIDL) ;
SHGetPathFromIDList(PIDL, InFolder) ;
LinkName := InFolder + '\Test ShortCut.lnk';
IPFile.Save(PWChar(LinkName), false) ;
end;
Silahkan dicoba dulu, klo belom bisa silahkan komplain ke google ..
xixixixiii...
 Â
Random Articles
- Menempatkan Icon dalam System Tray
- open Ms-Exell dari delphi
- Koneksi dari Delphi 7.0 menggunakan Database MySQL 5.0
- Ubah ODBC (MS-Acess, MySQL, MS-SQL Server) dengan Delphi
- Menampilkan pilihan Item pada Combobox dengan menggunakan keyboard
- Membuat sendiri UDF library bag.3
- Over Quota Transfer Data
- Dynamic Menu based on MySQL Database Method II
- Membaca Tanggal BIOS
- Kopi Darat v2 Delphi Indonesia (delphi-id.org)
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago