| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

проблемы с ShellExecute [D6, Win2k]

MiXen ©   (2003-02-04 19:44:00) 

Что необходимо подключить к программе, чтобы работал ShellExecute? Или есть какие-нибудь альтернативы? Необходимо просто запустить другую программу.
Заранее спасибо.

---

alena.svt   (2003-02-05 08:12:00) [1]


// Стив Тейксейр и Ксавье Пачеко "Delphi 5 Рукоаодство разработчика"
function ProcessExecute(CommandLine: String; cShow: WORD): Integer;
var
Rslt: LongBool;
StartUpInfo: TStartUpInfo;
ProcessInfo: TProcessInformation;
begin
FillChar(StartUpInfo,SizeOf(TStartUpInfo),0);
with StartUpInfo do
begin
cb:= SizeOf(TStartUpInfo);
dwFlags:= STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
wShowWindow:= cShow;
end;
Rslt:= CreateProcess(PChar(CommandLine),nil,nil,nil,False,NORMAL_PRIORITY_CLASS,nil,nil,StartUpInfo,ProcessInfo);
if Rslt then
with ProcessInfo do
begin
WaitForInputIdle(hProcess,INFINITE);
CloseHandle(hThread);
CloseHandle(hProcess);
Result:=0;
end
else
Result:=GetLastError;
end;

Потом
procedure TForm1.Button1Click(Sender: TObject);
begin
ProcessExecute("C:\Winnt\Notepad.exe",SW_SHOWNORMAL);
end;

Можно и так раз альтернатива нужна (шутка)

---

Chlavik   (2003-02-05 00:04:00) [2]

ShellExecute(Handle,"open",Pchar(fileName),nil,nil,SW_RESTORE);
можно и так ...

---

Vovchik_A   (2003-02-04 20:49:00) [3]

uses ShellAPI

ShellExecute(Handle,nil, StrPCopy(APchar, "file.doc"),
nil,nil,SW_RESTORE);

---

gsu   (2003-02-04 19:47:00) [4]

uses ShellAPI

WinExec
CreateProcess

---

Наверх