Wyniki wyszukiwania

<div class='codetop'>CODE</div><div class='codemain' style='height:200px;white-space:pre;overflow:auto'> numer:='12345'; sciezka:='c:\program files\gadu-gadu\gg.exe'; WinExec(PChar(sciezka+' /ggurl:"'+numer+'"'), SW_Normal); </div>

Nie wiem w czym tkwi twój problem przecież na necie jest dostępne źródełko tego komponentu (z Internetem tak jak ze stadionem u Ruskich i Chińczyków wszystko można znaleźć)

FindResult:=FindFirst(Sciezka+'*.*',faDirectory+faHidden,DSearchRec);

ech Delphi=THGG i C#=SHGG

reset Network

Nie wiem czego dokładnie oczekujesz, ale jeśli chodzi ci o sam wpis do rejestru To mniej więcej tak to powinno wyglądać Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\AllFilesystemObjects] [HKEY_CLASSES_ROOT\AllFilesystemObjects\shell]...

Program Kolo; Uses crt; Var r,p:real; Begin Clrscr; Writeln(‘Program podaje pole kola’); Writeln(‘Podaj promien kola’); Readln(r); P:=PI*r*r; Writeln(‘Pole kola=’,p); Readln; End. :killer:

1.Najeć na PageControl i PKM z wyborem „New Page” 2. TimeToStr(Time);

Jakie błędy może nie dałeś do uses Registry. :faja:

Do sekcji uses „Registry” var x:TRegistry; begin x:=TRegistry.Create; if x.KeyExists('SOFTWAREMicrosoftWindowsCurrentVersionRun') then label1.Caption:='Klucz istnieje' else label1.Caption:='Kilcz nie istnieje'; end;

Sprubuj tak: var H : HWND; S : string; I : integer; begin H := Windows.GetForegroundWindow; I := SendMessage(H, WM_GETTEXTLENGTH, 0, 0); I := I + 1; Setlength(S, I); SendMessage(H, WM_GETTEXT,I,longint(@S[1]) ); if  pos(Edit1.Text,s)<>0 then begin end else begin Form1.Memo1.SelText...

Odliczanie

procedure TForm1.Button1Click(Sender: TObject); begin if Application.MessageBox('Odpowiedz.','Pytanie',MB_OKCANCEL)=IDOK then begin showmessage('Wcisnąłeś OK'); end else begin showmessage('Wcisnąłeś CANCEL'); end; end; end.

A od kiedy tyle portów jest „73536” :glupek1:

Może po prostu ustaw ServerSocket1: Active=TRUE A ClientSocket1: Active=FALSE :gra:

Do sekcji uses dajesz ShellApi ShellExecute(0, 'open', 'iexplore.exe', ('http://www.google.pl'), nil, SW_SHOWNORMAL);

Ogólnie może być. Tylko takie małe zastrzeżenie, zrób coś z tymi błędami oraz z tą Maksymalizacją bo trochę dziwnie wygląda po powiększeniu.

Jeżeli chodzi ci o przeniesienie pliku to tak: MoveFile(pchar(application.Exename), pchar('C:Plik.exe')); Zaś kopiuje się tak: copyfile(pchar(application.Exename), pchar('C:Plik.exe'),true); :faja:

Pewnie dlatego że nad nim jest „begin” :glupek2:

Zrób sobie dwie niezależne procedury.