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

Вниз

ShellExecute под millenium и Win98   Найти похожие ветки 

 
svs-123456789@mail.ru   (2003-02-04 17:04) [0]

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

Приношу Всем свои извинения – писалось под влиянием стресса ..
Проблема в том что ошибка зависит от версии 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
-



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

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

Наверх




Память: 0.45 MB
Время: 0.009 c
1-6455
intell
2003-03-24 09:18
2003.04.03
Как обновить список файлов в FileListBox?


14-6690
Gon_gall
2003-03-18 04:10
2003.04.03
dbchecklistbox


1-6456
mastervigo
2003-03-20 20:11
2003.04.03
автоперенос по словам в Excel-документе


14-6734
mojo777
2003-03-16 15:04
2003.04.03
Looking for a skilled delphi-developer from russia.


14-6702
Мазут Береговой
2003-03-19 04:14
2003.04.03
Вроде тут были люди, которые знакомы с .NET.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский