function TForm1.ExecuteFile(const Params: String): Thandle;
var
zFileName, zParams, zDir: array[0..79] of Char;
begin
Result := ShellExecute(Application.MainForm.Handle,
nil,StrPCopy(zFileName, "c:\windows\rundll32.exe"),
StrPCopy(zParams, Params),
StrPCopy(zDir, "c:\windows\"),
SW_SHOW);
end;