Спасибо. Вопрос решился =) теперь еще один. В принципе тоже самое, надо чтобы по тому же принципу запускался .exe файл, лежащий на
локальном компютере. Вот кусочек кода:
procedure TMain.Button2Click(Sender: TObject);
begin
if ShellExecute(handle, 'Open', 'system\dbclear.exe, '', 'system\', SW_SHOWNORMAL) <= 32 then begin
MessageBox(handle, 'Error: File ..\system\dbclear.exe not found!', 'Error: File not found, MB_OK+MB_ICONERROR);
end;
end;
Данный кусок следует за вышеприведенным. Нужно, чтобы и этот бутон 2 запустился так же автоматически.
|