Форум: "Основная";
Текущий архив: 2003.02.13;
Скачать: [xml.tar.bz2];

Вниз

проблемы с ShellExecute   Найти похожие ветки 

← →
MiXen   (2003-02-04 19:44) [0]

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

---

← →
gsu   (2003-02-04 19:47) [1]

uses ShellAPI

WinExec
CreateProcess

---

← →
Vovchik_A   (2003-02-04 20:49) [2]

uses ShellAPI

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

---

← →
Chlavik   (2003-02-05 00:04) [3]

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

---

← →
alena.svt   (2003-02-05 08:12) [4]


// Стив Тейксейр и Ксавье Пачеко "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;

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.02.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c