Shellexecute

← →
selena (2003-12-05 11:05) [0]

Здраствуйте
Пробую написать вот такое ,но дает "Acccess violation to module kernel 32".Я новичок вообщето мне нужно чтобы распаковывался файл который программа найдет.В чем тут ошибка или нужно как то иначе?
procedure TForm1.Button1Click(Sender: TObject);
var
r:integer;
f: TSearchRec;
begin
chdir("c:\watcher");
r := FindFirst ("*.arj", faAnyFile, f);
while r = 0 do
begin
r := FindNext (f);
ShellExecute(Handle, Nil,"C:\Program Files\WinRAR\WinRAR.exe x", PChar(r), "c:\watcher\", SW_ShowNormal);
// Memo1.Lines.Add(ExtractFileName(f.Name));
end;
end;

← →
Dimka Maslov © (2003-12-05 11:08) [1]

1. ChDir не нужен
2. FindFirst("c:\Watcher\*.arj"...
3. ShellExecute(0, "open", "...winrar.exe", PChar(R.Name), ...

← →
KosilkA © (2003-12-05 11:10) [2]

"c:\watcher" - зачем тебе это ? если ты уже указал директорию в "C:\Program Files\WinRAR\WinRAR.exe x"? для архиватора ? если так , тогда приплюсуй этот "ватчер" к параметрам

← →
icWasya © (2003-12-05 11:11) [3]

во первых, FindNext надо вызывать в самом конце цикла
во вторых, после цикла нужен FindClose
в третьих, что не PChar(r), а PChar(F.filename)

← →
Anatoly Podgoretsky © (2003-12-05 11:12) [4]

Мама мия, число приводить к PChar и передавать это чудо как параметр

← →
selena (2003-12-05 11:16) [5]

Да я написал PChar(F.filename)и вроде пошло БОЛЬШОЕ спасибо,а как теперь x приплюсовать к параметрам?

← →
KosilkA © (2003-12-05 11:18) [6]

PChar(F.filename+" "+x)

ShellExecute(Handle, Nil,"C:\Program Files\WinRAR\WinRAR.exe", PChar("x " + F.filename),

← →
selena (2003-12-05 11:33) [8]

Классно все работает.Большое спасибо ,интересно а вы все ещё помните как это когда у тебя в первый раз работает что -то более менее серьезное.

Информация к сведению. Существуют модуль UnRAR.dll и Delphi component warapper к нему: http://www.rarlab.com/rar_add.htm

Shellexecute Найти похожие ветки