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

Вниз

работа с РАР.ЕХЕ   Найти похожие ветки 

 
апельсин== ©   (2003-04-03 08:47) [0]

procedure TForm1.Button2Click(Sender: TObject);
var TempStr: string;
i:integer;
begin
i:=LastDelimiter("\",OpenDialog1.FileName);
TempStr:=Copy(OpenDialog1.FileName,1,i);
shellexecute(self.Handle,"open",pchar(TempStr),nil,nil,SW_SHOW);
TempStr:="rar.exe e -y "+OpenDialog1.FileName+" C:\";
if winexec(pchar(TempStr),SW_sHOW)>32
then Application.MessageBox("получилось","да")
else Application.MessageBox("косяк","нет")
end;


процедура выдает сообщение что все ОК!, а результата (распакованного файла -НЕТ)

подскажите где ошибка


 
sask ©   (2003-04-03 09:45) [1]

Функция WinExec завершится с кодом <= 32 при системных ошибках
(нехватка памяти и т.п.). Код возврата запускаемого приложения не анализируется. Если хочешь посмотреть результат выполнения приложения (код возврата), используй, например,
ShellExecuteEx + GetExitCodeProcess



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

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

Наверх




Память: 0.46 MB
Время: 0.022 c
3-44018
ManYury
2003-03-25 12:59
2003.04.14
IB5.5 и хранимая процедура


11-44084
D.V.K
2002-06-28 06:28
2003.04.14
горячие клавиши (акселераторы) в меню


1-44108
Officeman
2003-03-29 21:33
2003.04.14
Вопрос об архивировании! =/


14-44325
race1
2003-03-26 15:18
2003.04.14
мозги допустили недопустимую операцию


3-43999
Dimitry
2003-03-25 10:25
2003.04.14
запись изображения в таблицу paradox