Mega Code Archive

 

Categories / Delphi / Printing

 

Ayri bir dosya [program] nasil calistirilir print edilir

//Ayri bir dosya (program) nasil calistirilir? //Herhangi bir programi calistirmak icin ShellExecute(Handle, 'open', PChar('c:\test\Tanz_AnthroX.exe'), nil, nil, SW_SHOW); //NOTEPAD'I calistirmak ShellExecute(Handle, 'open', PChar('notepad'), nil, nil, SW_SHOW); //NOTEPAD'e BeniOku.TXT dosyasini actirmak ShellExecute(Handle, 'open', PChar('notepad'), PChar('c:\AnthroX\benioku.txt', nil, SW_SHOW); //Web sayfasini actirmak ShellExecute(Handle, 'open', PChar('http://www.delphiturk.com/'), nil, nil, SW_SHOW); //Print ettirmek ShellExecute(Handle, 'print', PChar('c:\test\readme.txt'), nil, nil, SW_SHOW); //WINDOWS EXPLORER la dizinlere bakmak ShellExecute(Handle, 'explore', PChar('c:\windows)', nil, nil, SW_SHOW);