Programlama yapalım ve Öğrenelim.

Windows Dizinlerini Bulma

//Windowsun Kişisel Dizinlerini Bulmaya Yarayan Kodlar...

uses ShlObj, ActiveX;

function DizinAl(Klasor: Integer): string;

var

PIDL: PItemIDList;

Yol: LPSTR;

AMalloc: IMalloc;

begin

Yol := StrAlloc(MAX_PATH);

SHGetSpecialFolderLocation(Application.Handle, Klasor, PIDL);

if SHGetPathFromIDList(PIDL, Yol) then

Result := Yol;

SHGetMalloc(AMalloc);

AMalloc.Free(PIDL);

StrDispose(Yol);

end;

// Klasör Değişkenin Yerine Yazılacaklar...

//CSIDL_DESKTOP Masaüstü Dizini

//CSIDL_DESKTOPDIRECTORY Masaüstü Dizini

//CSIDL_FONTS Fontlar Dizini

//CSIDL_NETHOOD Nethood Klasörü

//CSIDL_PERSONAL Belgelerim Klasörü

//CSIDL_PROGRAMS Başlat Menüsü Programlar Dizini

//CSIDL_RECENT Geçmişte Açılanlar Klasörü

//CSIDL_SENDTO Gönder Klasörü

//CSIDL_STARTMENU Başlat Dizini

//CSIDL_STARTUP Başlangıç Dizini

//CSIDL_TEMPLATES Yeni Oluştur Dizini

//Kullanımı:

//Forma Label Koyun ve Onclick Olayına Yazın

procedure TForm1.Label1Click(Sender: TObject);

begin

label1.Caption:=DizinAl(CSIDL_TEMPLATES)

end;

//Not Kodlar Yabancı Siteden Alıntıdır...

//Fikri007@hotmail.com

Delphi - .....................................

Sendkeys ile Tuş Göndermek

Vermiş olduğunuz başlık isminden programı aktif yaparak gerekli keyi gönderir.

function SendKeys(ClassOrCaption:PChar;Keys:array of Integer):Boolean;

var

hW:HWND;

Ix:Integer;

begin

hW:=FindWindow(ClassOrCaption,nil);

if hW<=0 then hW:=FindWindow(nil,ClassOrCaption);

Result:=hW>0;

if Result then begin

Result:=SetForeGroundWindow(hW);

if not Result then Exit;

for Ix:=0 to High(Keys) do KeyBd_Event(Keys[Ix], 0, 0, 0);

for Ix:=High(Keys) downto 0 do Keybd_Event(Keys[Ix], 0, KEYEVENTF_KEYUP, 0);

end;

procedure TForm1.Button1Click(Sender: TObject);

var i : integer;

begin

SendKeys('Windows Media Player', [VK_Menu, VK_Return]);

end;

Delphi - .....................................

Sendkeys ile Tuş Göndermek

Vermiş olduğunuz başlık isminden programı aktif yaparak gerekli keyi gönderir.

function SendKeys(ClassOrCaption:PChar;Keys:array of Integer):Boolean;

var

hW:HWND;

Ix:Integer;

begin

hW:=FindWindow(ClassOrCaption,nil);

if hW<=0 then hW:=FindWindow(nil,ClassOrCaption);

Result:=hW>0;

if Result then begin

Result:=SetForeGroundWindow(hW);

if not Result then Exit;

for Ix:=0 to High(Keys) do KeyBd_Event(Keys[Ix], 0, 0, 0);

for Ix:=High(Keys) downto 0 do Keybd_Event(Keys[Ix], 0, KEYEVENTF_KEYUP, 0);

end;

procedure TForm1.Button1Click(Sender: TObject);

var i : integer;

begin

SendKeys('Windows Media Player', [VK_Menu, VK_Return]);

end;

Delphi - .....................................

Help MEEE!!

Arkadaşlar ben delphi ye yeni başladım. Ancak bir noktada takıldım.. Windowsun Kullanıcı Hesaplarına nasıl erişim sağlıyoruz? yada kullanıcı listesini nasıl alabilirim? Yardımcı olursanız Sevinirim..

E-Mail & MSN : coderscript@gmail.com

Delphi - .....................................

Help MEEE!!

E-Mail & MSN : coderscript@gmail.com

Delphi - .....................................

Delphide DLL'lerin çalışma mekanızmasına basit bir örnek

unit dlibcallpas; // Delphiden Basit Dll Örneği

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

{

windows unit is defined the function's name and opened them for the micropressor

open mode in its interface department

windows ünitesinde interface kısmında delphi stdcall çağrısıyla mikro işlemcinin

modunu değiştirerek fonksiyon adreslerini açar, aşşağıdaki kod aynı işlemi yapar

}

function dx(n: integer): integer; stdcall;

procedure dtriple(i: integer); stdcall;

function GetVersion: DWORD; stdcall;

type

TForm1 = class(TForm)

Panel1: TPanel;

Button2: TButton;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

//Later published them for memory in its IMPLEMENTATION

// Ve implementation kısmında bu fonksiyonları memoriye yayınlar

function dx; external 'dlibrary1dll' name 'dx';

procedure dtriple; external 'dlltriple' name 'dtriple';

function GetVersion; external kernel32 name 'GetVersion';

{$R *.dfm}

// then you can use the functions normaly in your programs

// Artık herhangi bir dll fonksiyonunu normal bir fonksiyon gibi kullanabiliriz

procedure TForm1.Button1Click(Sender: TObject);

begin

showmessage(inttostr(dx(4)));

dtriple(4);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

showmessage(inttostr(GetVersion));

end;

end.

*******************you should compare the libraryes below then run the

dlibcallpas unit the last function is always prepared

in windows unit and calling from here

Yukardaki üniteyi derlemeden önce aşşağıdaki dll'leri

elimizle oluşturup derlemeliyiz

Üçüncü fonksiyon zaten windows briminde tanımlandığından

dll'leri de mevcut olduğundan direk çağırıyoruz.

library dlibrary1; // my library1

{ Important note about DLL memory management: ShareMem must be the

first unit in your library's USES clause AND your project's (select

Project-View Source) USES clause if your DLL exports any procedures or

functions that pass strings as parameters or function results. This

applies to all strings passed to and from your DLL--even those that

are nested in records and classes. ShareMem is the interface unit to

the BORLNDMM.DLL shared memory manager, which must be deployed along

with your DLL. To avoid using BORLNDMM.DLL, pass string information

using PChar or ShortString parameters.

Memori yönetimini bizim yerimize delphinin yapmasını istiyorsak uses kısmında

ilk önce ShareMem brimini tanımlamalıyız bunun dezavantajı daha fazla kod

çalışacağından program yavaşlayacaktır istersek memori yönetimini kendimizde

destekleyebiliriz bunun için harici kod yazmalıyız}

uses

ShareMem,

SysUtils,

Classes;

function dx(n: integer): integer; stdcall;

begin

try

result:= n*2;

except

result:= -1;

end;

exports

dx;

end.

library dlltriple; //my library2

uses

ShareMem,

SysUtils,

Classes,

Dialogs;

{$R *.res}

procedure dtriple(i: integer); stdcall;

begin

showmessage(inttostr(i*3));

end;

exports

dtriple;

end.

byhamit@yahoo.com