• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 13 رای - 3 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: فایل لینک
حالت موضوعی
#1
از طریق این تابع می توانید یک فایل لینک از برنامه مورد نظر خود ایجاد کنید
کد:
procedure TForm1.Button1Click(Sender: TObject);

  procedure CreaLnk( Exe,
                     Argumentos,
                     DirTrabajo,
                     NombreLnk,
                     DirDestino:string);
  var
    Objeto: IUnknown;
    UnSlink: IShellLink;
    FicheroP: IPersistFile;
    WFichero: WideString;
  begin
    Objeto := CreateComObject(CLSID_ShellLink);
    UnSlink := Objeto as IShellLink;
    FicheroP := Objeto as IPersistFile;
    with UnSlink do
      begin
        SetArguments( PChar(Argumentos) );
        SetPath( PChar(Exe) );
        SetWorkingDirectory( PChar(DirTrabajo) );
      end;
    WFichero := DirDestino + '\' + NombreLnk;
    FicheroP.Save(PWChar(WFichero),False);
  end;

begin
  CreaLnk( 'c:\windows\Notepad.exe', {File Exe}
           'c:\Autoexec.bat',        {Arguments}
           'c:\',                    {Diretory  Base (For Search File Source)}
           'Editor Autoexec.lnk',    {File Name Link Output}
           'c:\'   {Output Directory}
           );
end;
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کد انتقال فایل به سطل اشغال ( دلفی) Amin_Mansouri 1 6,224 10-08-2022، 06:21 PM
آخرین ارسال: sonusood
  بدست اوردن نام فایل مسیر فایل و پسوند فایل در دلفی با تابع ExtractFileDir Amin_Mansouri 2 9,665 04-27-2013، 11:19 AM
آخرین ارسال: Amin_Mansouri
  سورس کد دیلیت کردن فایل مشخص شده از سطل زباله (دلفی) Amin_Mansouri 0 3,268 05-04-2012، 11:56 AM
آخرین ارسال: Amin_Mansouri
  سورس کد کپی کردن فایل (دلفی) Amin_Mansouri 0 6,837 04-27-2012، 10:59 AM
آخرین ارسال: Amin_Mansouri
  سورس کد دانلود فایل از طریق Ftp (دلفی) Amin_Mansouri 0 5,035 04-23-2012، 05:05 PM
آخرین ارسال: Amin_Mansouri
  سورس کد دانلود فایل با دلفی Amin_Mansouri 0 4,520 04-22-2012، 11:41 AM
آخرین ارسال: Amin_Mansouri
  سورس کد بدست اوردن نام فایل ( دلفی) Amin_Mansouri 0 3,121 01-01-2012، 09:51 PM
آخرین ارسال: Amin_Mansouri
  نوشتن و خواندن فایل در در دلفی Amin_Mansouri 0 6,600 10-20-2011، 12:14 PM
آخرین ارسال: Amin_Mansouri
  کپی کردن یک فایل Amin_Mansouri 0 4,604 08-01-2011، 07:34 PM
آخرین ارسال: Amin_Mansouri
  گرفتن سایز یک فایل روی هارد دیسک Amin_Mansouri 0 2,650 08-01-2011، 07:13 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: