Мне надо из своего преложения запустить программу калькулятор котрый находится в виндовсе.

Как это зделать.

Код

ShellExecute(Handle, nil, 'calc.exe', nil,nil, SW_Restore);

Не забудь в uses прописать ShellApi

ОК. Всё работает.

Тогда ещё вопрос может у кого есть иходники этого или другого калькулятора а то в виндовском некоторых функций нехватает.

ivan219
а ещё CreateProcess()
и WinExec()

Цитата

Тогда ещё вопрос может у кого есть иходники этого или другого калькулятора а то в виндовском некоторых функций нехватает.

правила: один вопрос - один топик
а исходники есть на ya.ru

Ладно калькулятор нашол буду его до делыват чтоб всё было.

CreateProcess()
WinExec()

Можно поподробнее чем отличастся.
И как полностью писать как здесь ShellExecute(Handle, nil, 'calc.exe', nil,nil, SW_Restore); .

Цитата(ivan219 @ 3.1.2006, 04:19)

И как полностью писать

В справке есть, на форуме, точно есть, попробуй поискать.

CreateProcess() - этой функцией и нужно создавать процессы (запускать программы).
WinExec() - оставлен для совмнстимости твоей, например, программы, с новыми версиями ОС.

Код

private      function ExecAndWait(const FileName, Params: ShortString; ArcDir:string; const WinState: Word): boolean; export; .... function TfmMain.ExecAndWait(const FileName, Params: ShortString; ArcDir:string;   const WinState: Word): boolean; export; var   StartInfo: TStartupInfo;   ProcInfo: TProcessInformation;   CmdLine: ShortString; begin   { Помещаем имя файла между кавычками, с соблюдением всех пробелов в именах Win9x }   CmdLine := '"' + Filename + '" ' + Params;   FillChar(StartInfo, SizeOf(StartInfo), #0);   with StartInfo do   begin     cb := SizeOf(StartInfo);     dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;     wShowWindow := WinState;   end;   Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,                           CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,                           PChar(ArcDir),StartInfo,ProcInfo);   { Ожидаем завершения приложения }   if Result then   begin     WaitForSingleObject(ProcInfo.hProcess, INFINITE);     { Free the Handles }     CloseHandle(ProcInfo.hProcess);     CloseHandle(ProcInfo.hThread);   end; end; ExecAndWait('rar', 'e -o+ *.rar',Dir, SW_Hide);

Вот вопрос прешолось опять поднять так как уменя нечего невышло мне надо запустить прогу которая находится в определённом месте на диске как это зделать

Если можно то поподробнее как эту функцию исползовать CreateProcess()

BOOL CreateProcess(

LPCTSTR lpApplicationName, // pointer to name of executable module
LPTSTR lpCommandLine, // pointer to command line string
LPSECURITY_ATTRIBUTES lpProcessAttributes, // pointer to process security attributes
LPSECURITY_ATTRIBUTES lpThreadAttributes, // pointer to thread security attributes
BOOL bInheritHandles, // handle inheritance flag
DWORD dwCreationFlags, // creation flags
LPVOID lpEnvironment, // pointer to new environment block
LPCTSTR lpCurrentDirectory, // pointer to current directory name
LPSTARTUPINFO lpStartupInfo, // pointer to STARTUPINFO
LPPROCESS_INFORMATION lpProcessInformation // pointer to PROCESS_INFORMATION
);

1 и 2й параметры -что исполнять тонкостей я не догоняю, но первый пишу нил, а второй - командная строка (можно с путем и параметрами)
3й и 4й - обычно нил
5й - истина если новый процесс наследует хэндлы от твоего
6й - флажки. я пишу ноль, но можно передать CREATE_SUSPENDED и первичный поток процесса будет замороженым
Добавлено @ 22:11
чтобы разморозить - ResumeThread. можно также задать приоритет.
7й - нил, если ты не создавал для этого процесса особый набор перем. окружения
8й - текущий каталог, если нил - наследуется
9й - структура STARTUPINFO. делается так:

var si:STARTUPINFO;
begin
ZeroMemory(@si,SizeOf(si));
si.cb:=SizeOf(si);
CreateProcess(......................,si,...);

10й - структура PROCESS_INFORMATION В ней получаешь в случае успеха ид-ры потока и процесса и их хэндлы. Если не собираешся ничего с ними делать то хэндлы нужно побыстрее закрыть CloseHandle

Это всё слишком для меня я только наяинаю если можно то попроще.

Мне надо: запустить EXE фаил который лежит в папке и находится вместе с управляющим EXE всё это находится в одной папке, некакого управления просто я в управляющем EXE нажемаю на кнопку и EXE из папки запускается.
Добавлено @ 00:20
У меня ошибка

Это сообщение отредактировал(а) Girder - 30.1.2006, 15:54

Чтото опять не то прога откомпилилась а фаил неоткрывает

Ну да, я ж говорю - обычно пишу во втором параметре

6: if CreateProcess(nil,'Cmd.EXE',nil,nil,false,0,nil,nil,si,pi) then begin

Код дал bems, всё работает





Это сообщение отредактировал(а) ivan219 - 26.1.2006, 20:28

Вобщем опять проблема уменя есть фаил который запускается через вот этот код



Сам EXE запускается нормально.

Но также есть фаил *.DLL который вместе с EXE но когда я его запускаю через свою прогу то получаю ошибку типа


Если запускать просто без моей проги то всё работает.

Что делать

WinExec