Mega Code Archive

 

Categories / Delphi / System

 

Shellexecute

Uses ShellApi; ShellExecute(0,'open','http://ferhat.tr.cx','','',SW_SHOWMAXIMIZED); //Mail için ShellExecute(0,'open','mailto:ferhatakkas@yahoo.com','','',SW_SHOWNORMAL); //Bir işlemi kendi programında açmak ShellExecute(0,'open','c:\windows\kur.bmp','','',SW_SHOWNORMAL); //Bir dosyayı başka bir programla açmak ShellExecute(0,'open','c:\windows\notepad.exe','c:\ferhat.txt','',SW_SHOWNORMAL); //veya şu şekilde kullanılabilir: //Windowsun kendi programlarını kullanırken dizin belirtmeye gerek yoktur. ShellExecute(Handle, 'open', PChar('notepad'), PChar('c:\ferhat.txt'), nil, SW_SHOW); //WINDOWS EXPLORER la dizinlere bakmak ShellExecute(Handle, 'explore', PChar('c:\windows)', nil, nil, SW_SHOW); //Herhangi bir programi calistirmak icin //1.yol ShellExecute(0, 'open', PChar('c:\oyunlar\oyun.exe'), nil, nil, SW_SHOW); //2.yol WinEcex('calc',sw_show);//hesap makinasını çalıştırı. //Print ettirmek ShellExecute(Handle, 'print', PChar('c:\test\readme.txt'), nil, nil, SW_SHOW);