![]() ![]() Note: please try these out on your Delphi version and Operating system (I have developed them under Delphi 7 and used them under Windows XP). StartupInfo.dwFlags := STARTF_USESHOWWINDOW Result := FindShellCmd(psExtension,'PRINT') įunction LocalExecute( psExeName:string wait:boolean how:word):word įunction LocalExecute32(FileName:String Wait:boolean Visibility : integer įillChar(StartupInfo,Sizeof(StartupInfo),#0) Result := FindShellCmd(psExtension,'OPEN') įunction FindShellPrintCmd(psExtension:string):string R.OpenKeyReadOnly('software\classes\' + sName + '\Shell\' + psCmd + '\Command') įunction FindShellOpenCmd(psExtension:string):string R.OpenKeyReadOnly('software\classes\' + psExtension) S := FindShellPrintCmd( ExtractFileExt(psFileName) ) įunction FindShellCmd(psExtension:string psCmd:string): string Procedure PrintUsingShell( psFileName :string) If you pass a pdf file as parameter to PrintUsingShell it should print if a Acrobat reader program has been installed (might work with other pdf-software too if they registered themselfs in the registry). Here are a bunch of routines I have written in my libary. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |