Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Как запустить приложение?   Найти похожие ветки 

 
PrettyFly ©   (2003-04-24 12:05) [0]

Привет! Как запустить другое приложение из моей проги?


 
Proton ©   (2003-04-24 12:10) [1]

winexec
shellexecute
createprocess


 
Odin ©   (2003-04-24 12:18) [2]

В какомто из стандартных примеров по Делфи:

Function ExecuteFile(const FileName, Params, DefaultDir: string): THandle;
var
zFileName, zParams, zDir: array[0..255] of Char;
begin
Result := ShellExecute(Application.MainForm.Handle, "open",
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir),SW_MAXIMIZE);
end;


 
panov ©   (2003-04-24 13:00) [3]

FAQ - для кого он, интересно?


 
Intell ©   (2003-04-25 09:04) [4]

16 и 32 разрядный вызов (работает на разных операционных системах)

procedure TForm1.Button1Click(Sender: TObject);
begin
winexec(pchar("notepad.exe"),sw_shownormal);
end;



Есть другой способ - 32 разрядный (работает только под Windows, но быстрее предыдущего)

добавляем модуль ShellAPI в USES

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle,nil,PChar("notepad.exe"),nil,nil,SW_ShowNormal);
end;



Ещё один способ - открывает не только *.exe файлы, как предыдущие, а открывает по маске

добавляем модуль ShellAPI в USES

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Application.Handle, "open", "C:\мои документы\Doc1.doc", nil, nil, sw_ShowNormal);
end;



Другой способ - открывает ссылки в инет:

добавляем модуль ShellAPI в USES

procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(0, "open", " http://www.pl-computers.ru", "", "", SW_Show);
end;

открывает ссылки Email:
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(0, "open", "mailto:sergein@nojabrsk.ru", "", "", SW_Show);
end;


Другой способ: (Не забудьте добавить Shellapi в Uses)

function ExecuteFile(const FileName, Params, DefaultDir: string; ShowCmd: Integer): THandle;
var
zFileName, zParams, zDir: array[0..79] of Char;
begin
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
ExecuteFile("maker.exe","text_file","c:\maker", SW_SHOWNORMAL);
end;


Если мало, то скажи....


 
Anatoly Podgorestky   (2003-04-25 09:11) [5]

А где сделсь 16 и 32 бита?



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

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
14-84582
[NIKEL]
2003-06-08 20:59
2003.06.26
Кто как организует хранит свои массивы документации, статей +


1-84081
Rel_
2003-06-10 11:51
2003.06.26
Excel


3-84036
elena_m
2003-05-29 17:50
2003.06.26
ADO connection, D7, MS SQL2000


1-84234
Совсем новичок
2003-06-08 16:25
2003.06.26
Как сделать паузу или подождать прорисовывания TLabel?


1-84160
Неплохой человек
2003-06-11 15:45
2003.06.26
Загрузка строк в объект типа TStringList - непонятные глюки