Проблема с каталогами Windows и Winnt

← →
zolotov (2003-01-10 23:48) [0]

Как вызывать приложение и под Win98/Me и т.д.,и под WinNT/2000?
Если у нас папка Windows, то это делается так:

procedure TCalcul.btCalcClick(Sender: TObject);
var Windir : String;
WindirP : PChar;
Res:byte;
begin
WinDirP := StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
if Res > 0 then WinDir := StrPas(WinDirP);
WinExec(StrToPchar(WinDir+"\calc.exe "),1);
end;

А вот если Winnt, то приложение не вызывается.
Заранее спасибо.

← →
Rouse_ © (2003-01-11 00:21) [1]

WinExec(Pchar(WinDir+"\System32\calc.exe"),SW_SHOW);

Желаю успехов

← →
zolotov (2003-01-11 00:52) [2]

Я так понял, это срабатывает только тогда, когда у нас каталог Winnt. А нельзя написать универсально, чтобы приложение вызывалось и из той и из другой папки?

← →
Rouse_ © (2003-01-11 01:00) [3]

Нет, ты не понял, в НТ калькулятор находится в папке System32 в этом и была твоя ошибка, ты не оттуда его запускал.
Можно сделать вообще одной строкой:
ShellExecute(Handle, "open","Calc", nil, nil, SW_NORMAL);

Желаю успехов

← →
zolotov (2003-01-11 01:05) [4]

Понял, спасибо большое

Да и вообще WinExec это уже вчерашний день....

Проблема с каталогами Windows и Winnt Найти похожие ветки