Programalama > DELPHI


Ort. 5
Puan ver:
uses ShellApi;
...
ShellExecute(Handle, 'open',
  'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);

ShellExecute(Handle,'open',
  'c:\windows\notepad.exe','c:\SomeText.txt',
  nil, SW_SHOWNORMAL);

ShellExecute(Handle,'open',
  'c:\DelphiDownload',
  nil, nil, SW_SHOWNORMAL);

ShellExecute(Handle, 'open',
  'c:\MyDocuments\Letter.doc',nil,nil,SW_SHOWNORMAL);

ShellExecute(Handle, 'open',
  'http://delphi.about.com',nil,nil, SW_SHOWNORMAL);

var em_subject, em_body, em_mail : string;
begin
 em_subject := 'This is the subject line';
 em_body := 'Message body text goes here';

 em_mail := 'mailto:delphi.guide@about.com?subject=' +
   em_subject + '&body=' + em_body ;

 ShellExecute(Handle,'open',
   PChar(em_mail), nil, nil, SW_SHOWNORMAL);
end;


// Execute the Windows Calculator and pop up
// a message when the Calc is terminated.
uses ShellApi;
...
var
  SEInfo: TShellExecuteInfo;
  ExitCode: DWORD;
  ExecuteFile, ParamString, StartInString: string;
begin
  ExecuteFile:='c:\Windows\Calc.exe';
  
  FillChar(SEInfo, SizeOf(SEInfo), 0);
  SEInfo.cbSize := SizeOf(TShellExecuteInfo);
  with SEInfo do begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := Application.Handle;
    lpFile := PChar(ExecuteFile);
{
ParamString can contain the
application parameters.
}
// lpParameters := PChar(ParamString);
{
StartInString specifies the
name of the working directory.
If ommited, the current directory is used.
}
//  lpDirectory := PChar(StartInString);
    nShow := SW_SHOWNORMAL;
  end;
  if ShellExecuteEx(@SEInfo) then begin
    repeat
      Application.ProcessMessages;
      GetExitCodeProcess(SEInfo.hProcess, ExitCode);
    until (ExitCode <> STILL_ACTIVE) or
	   Application.Terminated;
    ShowMessage('Calculator terminated');
  end
  else ShowMessage('Error starting Calc!');
end;



// run Notepad
WinExec('c:\windows\NOTEPAD.EXE', SW_SHOWNORMAL);

// run Notepad and display SomeText.txt
WinExec('c:\windows\NOTEPAD.EXE C:\SomeText.txt',
  SW_SHOWNORMAL);

// execute a DOS DIR command
WinExec('COMMAND.COM /C DIR *.*', SW_SHOWNORMAL);



Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.