probao sam to sto si mi napisao i nece... :((((
program mi ide ovako:
program pokretac;
Uses DOS, CRT,ShellApi;
var i:integer;
Begin
while true do begin
{ SwapVectors;
Exec('C:\Documents and Settings\Dusan Damjanovic\Desktop\x.exe','');
SwapVectors; }
for i:=30 downto 1 do
begin
delay(1000);
writeln('pokrecem link za: ',i,'s');
end;
ShellExecute(0, 'open', '
http://www.google.com', nil, nil, SW_SHOWNORMAL);
end;
End.
pokretanje programa radi odlicno.
al ovu komandu sto si mi napisao, nece da je izvrsi... :((((
radim u cistom paskalu