Apiler - Delphi- Zamansız Tartışma Platform

ares · 07-12-07, 19:03 Çevrimdışı

Belgeler menüsüne bir dosya ekleme

uses kısmına ShlOBJ unitini ekleyin;

Code:

  procedure TForm1.Button1Click(Sender: TObject);

var

  s : string;

begin

  s := 'C:\DownLoad\deneme.html';

  SHAddToRecentDocs(SHARD_PATH, pChar(s));

end;

ares · 07-12-07, 19:04 Çevrimdışı

uses kısmına ShlOBJ unitini ekleyin;

Code:

 SHAddToRecentDocs(SHARD_PATH, nil);

ares · 07-12-07, 19:05 Çevrimdışı

Code:

var

  s: string;

begin

  s := 'c:\windows\athena.bmp';

  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(s),0);

ares · 07-12-07, 19:06 Çevrimdışı

Code:

  procedure TForm1.Button1Click(Sender: TObject);

var

  Rgn : hRgn;

begin

  // Başlat butonunu gizle

  Rgn := CreateRectRgn(0, 0, 0, 0);

  SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),

                                       0,

                                      'Button',

                                       nil),

                                       Rgn,

                                       true);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

  //Gizlenen Başlat butonunu eski haline döndürmek için

  SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),

                                       0,

                                      'Button',

                                       nil),

                                       0,

                                       true);

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

  //Başlat butonunu kullanılmaz yap

  EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),

                                       0,

                                       'Button',

                                       nil),

                                       false);

end;

 

procedure TForm1.Button4Click(Sender: TObject);

begin

  //Kullanılmaz yapılan Başlat butonunu eski haline getirmek için

  EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),    0,            'Button',    nil),  true);

end;

ares · 07-12-07, 19:06 Çevrimdışı

Code:

 WinExec('c:\windows\calc.exe',sw_show);
WinExec('C:\WINDOWS\NOTEPAD.EXE C:\WINDOWS\WIN.INI', SW_SHOWNORMAL);
WinExec('COMMAND.COM', SW_SHOWNORMAL);
WinExec('COMMAND.COM /C DIR *.*', SW_SHOWNORMAL);

ares · 07-12-07, 19:07 Çevrimdışı

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

  VolumeSerialNumber : DWORD;

  MaximumComponentLength : DWORD;

  FileSystemFlags : DWORD;

  SerialNumber : string;

begin

  GetVolumeInformation('C:\', nil, 0, @VolumeSerialNumber,                                MaximumComponentLength,   FileSystemFlags, nil, 0);

  SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' +

                           IntToHex(LoWord(VolumeSerialNumber), 4);

  Memo1.Lines.Add(SerialNumber);

end;

ares · 07-12-07, 19:08 Çevrimdışı

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

  a : Array[0..144] of char;

begin

  GetWindowsDirectory(a, sizeof(a));

  ShowMessage(StrPas(a));

  GetSystemDirectory(a, sizeof(a));

  ShowMessage(StrPas(a));

end;

ares · 07-12-07, 19:09 Çevrimdışı

uses kısmına Registry unitini ekleyin;

Code:

  procedure TForm1.Button1Click(Sender:TObject);

var

  reg: TRegIniFile;

begin

  reg := TRegIniFile.create('SOFTWARE\MICROSOFT\MS SETUP (ACME)\');

  Memo1.Lines.Add(reg.ReadString('USER INFO',

                                 'DefName',

                                 'Mustafa ŞİMŞEK'));

  Memo1.Lines.Add(reg.ReadString('USER INFO',

                                 'DefCompany',

                                 'Bilgisayar Bilimleri Müh.'));

  reg.free;

end;

ares · 07-12-07, 19:10 Çevrimdışı

Code:

 MessageBeep(word(-1));

ares · 07-12-07, 19:11 Çevrimdışı

Control Panel uygulamaları Windows\System klasörü altında bulunur. *.CPL uzantılı dosyalardır. Bu uygulamaları Control.Exe programı ile çalıştırabilirsiniz. Bazı Control Panel uygulamaları Windows\System klasöründe bulunmaz. Bunların ismini vererek çalıştırabilirsiniz.

Code:

  WinExec('C:\WINDOWS\CONTROL.EXE TIMEDATE.CPL', sw_ShowNormal);

WinExec('C:\WINDOWS\CONTROL.EXE MOUSE', sw_ShowNormal);

WinExec('C:\WINDOWS\CONTROL.EXE PRINTERS', sw_ShowNormal);

ares · 07-12-07, 19:12 Çevrimdışı

Code:

 ExitWindowsEx(EWX_SHUTDOWN,0);     //yeniden başlatmak için EWX_REBOOT

ares · 07-12-07, 19:12 Çevrimdışı

Code:

  //kapatmak için

SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0,  nil,  0);

//açmak için

SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,  1,  nil,         0);

ares · 07-12-07, 19:13 Çevrimdışı

Ekran kartınızın kaç rengi desteklediğini aşağıdaki kodla bulabilirsiniz.

Code:

 (1 shl (GetDeviceCaps(Form1.Canvas.Handle, BITSPIXEL) *  
          GetDeviceCaps(Form1.Canvas.Handle, PLANES)));

ares · 07-12-07, 19:14 Çevrimdışı

uses kısmına ShellApi unitini ekleyin.

Code:

 ShellExecute(0, 'explore', 'C:\WINDOWS',   //buraya açmak istediğiniz klasörü yazın.  nil,   nil,  SW_SHOWNORMAL);

ares · 07-12-07, 19:15 Çevrimdışı

Windows'ta Başlat->Bul->Dosyalar ve Klasörler ile açtığınız Bul diyalog penceresini Delphi içerisinden hem de istediğiniz yolu vererek çalıştırabilirsiniz.

uses kısmına ddeman unitini ekleyin.

Code:

 procedure TForm1.Button1Click(Sender: TObject);
begin
  with TDDEClientConv.Create(Self) do begin
    ConnectMode := ddeManual;
    ServiceApplication := 'explorer.exe';
    SetLink( 'Folders', 'AppProperties');
    OpenLink;
    ExecuteMacro('[FindFolder(, C:\DOWNLOAD)]', False);  //diyalog açıldığında konum kısmında
    CloseLink;                                                             //olmasını istediğiniz klasör.
    Free;
  end;
end;

ares · 07-12-07, 19:16 Çevrimdışı

Pencerenin başlık çubuğunda bulunan kapatma düğmesini (X) etkisiz hale getirebilirsiniz. Aynı zamanda sistem menüsündeki Kapat(Close) seçeneğide kaybolur. Bunun için aşağıdaki gibi bir kod yazmalısınız.

Code:

 procedure TForm1.Button1Click(Sender: TObject);
var
  hwndHandle : THANDLE;
  hMenuHandle : HMENU;
begin
  hwndHandle := FindWindow(nil, 'Form1');  //Form1 pencerenin başlığını göstermektedir.
  if (hwndHandle <> 0) then begin             //Burayı uygulamanıza göre değiştirin
    hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
    if (hMenuHandle <> 0) then
      DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
  end;
end;

ares · 07-12-07, 19:17 Çevrimdışı

uses kısmına Registry unitini ekleyin.

Code:

  {$IFNDEF WIN32}

const MAX_PATH = 144;

{$ENDIF}

 

procedure TForm1.Button1Click(Sender: TObject);

var

  reg: TRegistry;

begin

  reg := TRegistry.Create;

  reg.RootKey := HKEY_LOCAL_MACHINE;

  reg.LazyWrite := false;

  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);

  reg.WriteString('Uygulamam', uygulamanızın_yolu_ve_adı);

  reg.CloseKey;

  reg.free;

end;

ares · 07-12-07, 19:18 Çevrimdışı

uses kısmına ShellAPI ve ShlObj unitlerini ekleyin.

Code:

 procedure TForm1.Button1Click(Sender: TObject);
var
  TitleName : string;
  lpItemID : PItemIDList;
  BrowseInfo : TBrowseInfo;
  DisplayName : array[0..MAX_PATH] of char;
  TempPath : array[0..MAX_PATH] of char;
begin
  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
  BrowseInfo.hwndOwner := Form1.Handle;
  BrowseInfo.pszDisplayName := @DisplayName;
  TitleName := 'Lütfen bir klasör seçin';
  BrowseInfo.lpszTitle := PChar(TitleName);
  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
  lpItemID := SHBrowseForFolder(BrowseInfo);
  if lpItemId <> nil then begin
    SHGetPathFromIDList(lpItemID, TempPath);
    ShowMessage(TempPath);
    GlobalFreePtr(lpItemID);
  end;
end;

ares · 07-12-07, 19:19 Çevrimdışı

uses kısmına Shellapi unitini ekleyin;

Code:

 ShellExecute(Handle, 'open', 'http://www.delphikursu.com',  nil, nil,sw_ShowMaximized);

ares · 07-12-07, 19:20 Çevrimdışı

Code:

WinExec('command.com /c progdos.exe',sw_ShowNormal); //progdos.exe çalıştırılıyor.

(* eğer ikinci paremetreyi sw_Hide yaparsanız kullanıcı programın çalıştığını görmez. *)

07-12-07, 19:03 Çevrimdışı	#1
ares Genel Mesajlar: 6.672 Teşekkür etti: 767 Teşekkür edildi: 2.129 RepForum Gücü: 500 Forum Puanı:45442	Apiler Belgeler menüsüne bir dosya ekleme uses kısmına ShlOBJ unitini ekleyin; Code: procedure TForm1.Button1Click(Sender: TObject); var s : string; begin s := 'C:\DownLoad\deneme.html'; SHAddToRecentDocs(SHARD_PATH, pChar(s)); end;

07-12-07, 19:04 Çevrimdışı	#2
ares Genel Mesajlar: 6.672 Teşekkür etti: 767 Teşekkür edildi: 2.129 RepForum Gücü: 500 Forum Puanı:45442	Belgeler menüsünü temizleme uses kısmına ShlOBJ unitini ekleyin; Code: SHAddToRecentDocs(SHARD_PATH, nil);

07-12-07, 19:05 Çevrimdışı	#3
ares Genel Mesajlar: 6.672 Teşekkür etti: 767 Teşekkür edildi: 2.129 RepForum Gücü: 500 Forum Puanı:45442	Duvar kağıdını değiştirmek Code: var s: string; begin s := 'c:\windows\athena.bmp'; SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(s),0);

07-12-07, 19:06 Çevrimdışı	#5
ares Genel Mesajlar: 6.672 Teşekkür etti: 767 Teşekkür edildi: 2.129 RepForum Gücü: 500 Forum Puanı:45442	Bir programın çalıştırılması Code: WinExec('c:\windows\calc.exe',sw_show); WinExec('C:\WINDOWS\NOTEPAD.EXE C:\WINDOWS\WIN.INI', SW_SHOWNORMAL); WinExec('COMMAND.COM', SW_SHOWNORMAL); WinExec('COMMAND.COM /C DIR .', SW_SHOWNORMAL);

07-12-07, 19:10 Çevrimdışı	#9
ares Genel Mesajlar: 6.672 Teşekkür etti: 767 Teşekkür edildi: 2.129 RepForum Gücü: 500 Forum Puanı:45442	Speakerdan Beep sesi çıkartma Code: MessageBeep(word(-1));

07-12-07, 19:11 Çevrimdışı	#10
ares Genel Mesajlar: 6.672 Teşekkür etti: 767 Teşekkür edildi: 2.129 RepForum Gücü: 500 Forum Puanı:45442	Bir Denetim Masası uygulamasını çalıştırmak Control Panel uygulamaları Windows\System klasörü altında bulunur. *.CPL uzantılı dosyalardır. Bu uygulamaları Control.Exe programı ile çalıştırabilirsiniz. Bazı Control Panel uygulamaları Windows\System klasöründe bulunmaz. Bunların ismini vererek çalıştırabilirsiniz. Code: WinExec('C:\WINDOWS\CONTROL.EXE TIMEDATE.CPL', sw_ShowNormal); WinExec('C:\WINDOWS\CONTROL.EXE MOUSE', sw_ShowNormal); WinExec('C:\WINDOWS\CONTROL.EXE PRINTERS', sw_ShowNormal);

07-12-07, 19:12 Çevrimdışı	#11
ares Genel Mesajlar: 6.672 Teşekkür etti: 767 Teşekkür edildi: 2.129 RepForum Gücü: 500 Forum Puanı:45442	Windows'u kapatmak veya yeniden başlatmak(reboot) Code: ExitWindowsEx(EWX_SHUTDOWN,0); //yeniden başlatmak için EWX_REBOOT

07-12-07, 19:12 Çevrimdışı	#12
ares Genel Mesajlar: 6.672 Teşekkür etti: 767 Teşekkür edildi: 2.129 RepForum Gücü: 500 Forum Puanı:45442	Ekran koruyucusunu kapatmak ve açmak Code: //kapatmak için SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0); //açmak için SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, 0);

07-12-07, 19:13 Çevrimdışı	#13
ares Genel Mesajlar: 6.672 Teşekkür etti: 767 Teşekkür edildi: 2.129 RepForum Gücü: 500 Forum Puanı:45442	Ekran kartım kaç rengi destekliyor Ekran kartınızın kaç rengi desteklediğini aşağıdaki kodla bulabilirsiniz. Code: (1 shl (GetDeviceCaps(Form1.Canvas.Handle, BITSPIXEL) * GetDeviceCaps(Form1.Canvas.Handle, PLANES)));

07-12-07, 19:14 Çevrimdışı	#14
ares Genel Mesajlar: 6.672 Teşekkür etti: 767 Teşekkür edildi: 2.129 RepForum Gücü: 500 Forum Puanı:45442	Windows Gezginini istediğiniz bir klasörle açma uses kısmına ShellApi unitini ekleyin. Code: ShellExecute(0, 'explore', 'C:\WINDOWS', //buraya açmak istediğiniz klasörü yazın. nil, nil, SW_SHOWNORMAL);

07-12-07, 19:15 Çevrimdışı	#15
ares Genel Mesajlar: 6.672 Teşekkür etti: 767 Teşekkür edildi: 2.129 RepForum Gücü: 500 Forum Puanı:45442	Windows'un Bul (Find File) diyalog penceresini istediğiniz bir klasörle açma Windows'ta Başlat->Bul->Dosyalar ve Klasörler ile açtığınız Bul diyalog penceresini Delphi içerisinden hem de istediğiniz yolu vererek çalıştırabilirsiniz. uses kısmına ddeman unitini ekleyin. Code: procedure TForm1.Button1Click(Sender: TObject); begin with TDDEClientConv.Create(Self) do begin ConnectMode := ddeManual; ServiceApplication := 'explorer.exe'; SetLink( 'Folders', 'AppProperties'); OpenLink; ExecuteMacro('[FindFolder(, C:\DOWNLOAD)]', False); //diyalog açıldığında konum kısmında CloseLink; //olmasını istediğiniz klasör. Free; end; end;

07-12-07, 19:16 Çevrimdışı	#16
ares Genel Mesajlar: 6.672 Teşekkür etti: 767 Teşekkür edildi: 2.129 RepForum Gücü: 500 Forum Puanı:45442	Pencerenin kapatma düğmesini etkisiz hale getirme Pencerenin başlık çubuğunda bulunan kapatma düğmesini (X) etkisiz hale getirebilirsiniz. Aynı zamanda sistem menüsündeki Kapat(Close) seçeneğide kaybolur. Bunun için aşağıdaki gibi bir kod yazmalısınız. Code: procedure TForm1.Button1Click(Sender: TObject); var hwndHandle : THANDLE; hMenuHandle : HMENU; begin hwndHandle := FindWindow(nil, 'Form1'); //Form1 pencerenin başlığını göstermektedir. if (hwndHandle <> 0) then begin //Burayı uygulamanıza göre değiştirin hMenuHandle := GetSystemMenu(hwndHandle, FALSE); if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND); end; end;

07-12-07, 19:19 Çevrimdışı	#19
ares Genel Mesajlar: 6.672 Teşekkür etti: 767 Teşekkür edildi: 2.129 RepForum Gücü: 500 Forum Puanı:45442	Bir web adresini açma uses kısmına Shellapi unitini ekleyin; Code: ShellExecute(Handle, 'open', 'http://www.delphikursu.com', nil, nil,sw_ShowMaximized);

07-12-07, 19:20 Çevrimdışı	#20
ares Genel Mesajlar: 6.672 Teşekkür etti: 767 Teşekkür edildi: 2.129 RepForum Gücü: 500 Forum Puanı:45442	Bir DOS programını çalıştırma ve çalışması bitince penceresini kapatma Code: WinExec('command.com /c progdos.exe',sw_ShowNormal); //progdos.exe çalıştırılıyor. (* eğer ikinci paremetreyi sw_Hide yaparsanız kullanıcı programın çalıştığını görmez. *)

Konu Seçenekleri
Yazdırılabilir Sümü Göster Sayfayı E-Mail'le gönder