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

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

ShellExecute под millenium и Win98 [D6, Win95/98, WinME, Win2k]


svs-123456789@mail.ru ©   (2003-02-04 17:04:00) 

ShellExecute под w200 и Millenium
- e меня правильно вызывает исполняемую программу
- а под W98 - ShellExecute вызывает ощибку и не может найти файл - хотя путь к нему указан првильно !
(прога скомпилирована под W200)
получается что чкомпилированная программа работает только gjl w2000


svs-123456789@mail.ru   (2003-02-05 09:53:00) [1]

Приношу Всем свои извинения – писалось под влиянием стресса ..
Проблема в том что ошибка зависит от версии Windows – под одной работает , под другой – нет

procedure ExecuteEXE(ExecutableFile:string; Param:string; Dir:string);
var
hWnd:windows.HWND;
Operation:PChar;
FileName:PChar;
Parameters:PChar;
Directory:PChar;
ShowCmd: Integer;
Handle: HINST;
strTmp:string;
begin

Operation := "";
FileName := PChar(ExecutableFile);
Parameters := PChar(Param);
Directory := PChar(Dir);
ShowCmd := SW_SHOWMAXIMIZED;

Handle:=ShellAPI.ShellExecute(hWnd, Operation, FileName,Parameters, Directory, ShowCmd);


Handle:=ShellAPI.ShellExecute(hWnd, Operation, FileName, Parameters, Directory, ShowCmd);
if Handle<=32 then
begin
strTmp:=IntToStr(Handle);
MessageDlg("ShellExecute("+ExecutableFile+")"13#10+ "Handle="+strTmp, mtError, [mbOK], 0);
end;
end;

Скомпилировано в D6,(OC W2000)
при работе под Win 98 - ShellExecute возвращает код 2 - не найден путь ... (“C:\Plan\Plan.exe” – но путь на всех машинах одинаков )
При работе под ОС Win Millenium и W2000 - все работает правильно
- Может дело в отличающихся shell32.dll
-


Viktor Kushnir   (2003-02-05 09:25:00) [2]

Рабочий каталог в команде укажи.


Dr.Karter   (2003-02-05 09:06:00) [3]

Странно компилировал под 2000, а под миллениум работает....


Anatoly Podgoretsky   (2003-02-04 18:12:00) [4]

Ошибка в 17 строке.


gsu   (2003-02-04 18:08:00) [5]

Удалено модератором
Примечание: Трепемся в Потрепаться


gsu   (2003-02-04 18:05:00) [6]

Удалено модератором
Примечание: Трепемся в Потрепаться


Игорь Шевченко   (2003-02-04 18:02:00) [7]

Мы не телепаты. Это неуважение к форуму.


gsu   (2003-02-04 17:24:00) [8]

может использовать createprocess ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо