Taskbarı gizleme ShowWindow(FindWindow( ’Shell_TrayWnd’,nil), SW_HIDE); Taskbarı gösterme ShowWindow( FindWindow( ’Shell_TrayWnd’,nil), SW_SHOWNA); Taskbar iconlarını gizleme ShowWindow( FindWindowEx( FindWindow(’Shell_TrayWnd’, nil),HWND(0), ’ReBarWindow32’, nil), Sw_Hide); Taskbar iconlarını gösterme ShowWindow( FindWindowEx( FindWindow(’Shell_TrayWnd’, nil),HWND(0), ’ReBarWindow32’, nil), Sw_Show); Başlat butonunu gizleme ShowWindow (FindWindowEx(FindWindow(’Shell_TrayWnd’,nil),0,’B utton’,nil),SW_Hide); Başlat butonunu gösterme ShowWindow (FindWindowEx(FindWindow(’Shell_TrayWnd’,nil),0,’B utton’,nil),SW_ShowNormal); Sistem saatini gizleme ShowWindow(FindWindowEx(FindWindowEx( FindWindow(’Shell_TrayWnd’, nil),HWND(0), ’TrayNotifyWnd’, nil),HWND(0), ’TrayClockWClass’, nil),Sw_Hide); Sistem saatini gösterme ShowWindow(FindWindowEx(FindWindowEx( FindWindow(’Shell_TrayWnd’, nil),HWND(0), ’TrayNotifyWnd’, nil),HWND(0), ’TrayClockWClass’, nil),Sw_Show);

PHP- Kodu: procedure TForm1.Button1Click(Sender: TObject);  function Cleanup( sText : string ) : string;  begin  // --  while ( pos( #13, sText ) > 0 ) do  sText[ pos( #13, sText ) ] := ' ';  while ( pos( #10, sText ) > 0 ) do  delete( sText, pos( #10, sText ), 1 );  result := sText;  end;  var  SoapClient: OleVariant;  v1,  v2,  v3: OleVariant;  begin  SoapClient := CreateOleObject('MSSOAP.SoapCl ient');  try  SoapClient.mssoapinit('http://sal006.salnetwork.com:83/lucin/smsmessaging/process.xml');  v1 := edtRes.text;  v2 := Cleanup( memBody.Lines.text );  v3 := edtSender.text;  SoapClient.SendTextMessage( v1, v2, v3 );  finally  SoapClient := null;  end;  end;  Kod: SoapClient.mssoapinit('http://sal006.salnetwork.com:83/lucin/smsmessaging/process.xml'); Burada dikkat edilmesi gereken kod bu.Free sms atan sitelerden birinden sms atıyor.

Kod: uses NB30; function GetAdapterInfo(Lana: Char): String; var Adapter: TAdapterStatus; NCB: TNCB; begin FillChar(NCB, SizeOf(NCB), 0); NCB.ncb_command := Char(NCBRESET); NCB.ncb_lana_num := Lana; if Netbios(@NCB) <> Char(NRC_GOODRET) then begin Result := 'mac not found'; Exit; end; FillChar(NCB, SizeOf(NCB), 0); NCB.ncb_command := Char(NCBASTAT); NCB.ncb_lana_num := Lana; NCB.ncb_callname := '*'; FillChar(Adapter, SizeOf(Adapter), 0); NCB.ncb_buffer := @Adapter; NCB.ncb_length := SizeOf(Adapter); if Netbios(@NCB) <> Char(NRC_GOODRET) then begin Result := 'mac not found'; Exit; end; Result := IntToHex(Byte(Adapter.adapter_address[0]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[1]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[2]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[3]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[4]), 2) + '-' + IntToHex(Byte(Adapter.adapter_address[5]), 2); end; function...

Ram’inizin kaç mb olduğunu öğrenmek çok kolay procedure TForm1.Timer1Timer(Sender: TObject); var m:TMEMORYSTATUS; begin GlobalMemoryStatus(m); Label1.caption:=’ %’ + IntToStr(m.dwMemoryLoad ); Label2.caption:=" + FloatToStr(m.dwTotalPhys /1024.0/1024.0) +’ MB’; Label3.caption:="+FloatToStr (m.dwAvailPhys /1024.0/1024.0)+’ MB’; end; end.

Bilgisayarda takılı olan ses kartının listesini öğrenmek için kullanılan koduses mmsystem; procedure aygitlistele(DeviceNames: TStrings); var DNum: Integer; i: Integer; Caps: TWaveOutCapsA; begin DNum := waveOutGetNumDevs; for i := 0 to DNum – 1 do begin waveOutGetDevCaps(i, @Caps, SizeOf(TWaveOutCapsA)); DeviceNames.Add(string(Caps.szPname)); end; end; procedure TForm1.Button1Click(Sender: TObject); begin aygitlistele(Listbox1.Items); end;