Kod: Tümünü seç
ShellExecute(0, 'open', PChar(URL), '', '', SW_SHOWMAXIMIZED);
Kod: Tümünü seç
ShellExecute(0, 'open', PChar(URL), '', '', SW_SHOWMAXIMIZED);
Kod: Tümünü seç
procedure test
a: array[0..144] of char;
begin
GetWindowsDirectory(a, sizeof(a));
ieStrPath := Copy(StrPas(a), 0, 1) + ':\Program Files\Internet Explorer\IEXPLORE.EXE';
ShellExecute(0, 'open', PChar(ieStrPath), PChar(URL), nil, sw_ShowNormal);