SLM ARKADAŞLAR DELPHİDE KISAYOL PROGRAMI NASIL YAPILIR ARKADAŞLAR KODLARIYLA BİRLİKTE YAZARSANIZ ÇOK ÇOK MAKBULE GEÇECEK LÜTFEN BİRİ YASSIN KISAYOL PROGRAMINI ÇOK İHTİYACIM VAR ACİL HEMDE ÇOK YARDIM EDERSENİZ ÇOK SEVİNİRİM :(:(:(:(
arkadaşlar lütfen ya 20 kişi okumuş bir kişi cevap yazmamış lüffen yazın çok acil
var
l_lpIShellLink : IShellLink;
l_lpIUnknown : IUnknown;
l_lpIFile : IPersistFile;
l_lpwcbPath : WideString;
begin
l_lpIUnknown := CreateComObject( CLSID_ShellLink );
l_lpIShellLink := (l_lpIUnknown as IShellLink);
l_lpIFile := (l_lpIUnknown as IPersistFile);
l_lpIShellLink.SetPath( {uygulamanın adresi + uygulama.exe} );
l_lpIShellLink.SetWorkingDirectory( {uygulama adresi} );
l_lpIShellLink.SetIconLocation( {uygulama simgesi} );
l_lpwcbPath := {kısayol oluşturulacak adres + kısayol.lnk}
l_lpIFile.Save( PWideChar(l_lpwcbPath), False );
end.
Kolay gelsin.
uses ShlObj, ComObj, ActiveX;
function CreateShellLink(const Filename, Description, ShortcutTo, Parameters, WorkingDir, IconFilename: String; const IconIndex, ShowCmd: Integer): Boolean;
var
Obj: IUnknown;
SL: IShellLink;
PF: IPersistFile;
WideFilename: WideString;
begin
Obj := CreateComObject(CLSID_ShellLink);
SL := Obj as IShellLink;
SL.SetPath(PChar(ShortcutTo));
SL.SetArguments(PChar(Parameters));
if WorkingDir <> '' then
SL.SetWorkingDirectory(PChar(WorkingDir));
if IconFilename <> '' then
SL.SetIconLocation(PChar(IconFilename), IconIndex);
SL.SetShowCmd(ShowCmd);
if Description <> '' then
SL.SetDescription(PChar(Description));
PF := Obj as IPersistFile;
WideFilename := Filename;
Result := SUCCEEDED(PF.Save(PWideChar(WideFilename), True));
end;
kamil böle yazdıkmı çalışırmı aynısını yazdıkmı bide neler eklicez bbi zahmet sölesene çarşamba verilcek ödev lüften yaedımm