نمونه کد [بایگانی] - برنامه نویس

پرنده کوچک

جمعه 12 اسفند 1384, 23:21 عصر

سلام.
چند تا نمونه کد در دلفی 7 میخوام:
1. خواندن و نوشتن در رجیستری و نیز ایجاد و پاک کردن کلیدها (در هر ریشه و کلیدی که بخواهم)
2. کپی کردن تمام محتویات یک فولدر در فولدری دیگر ( خود فولدر را نمیخوام کپی کنم بلکه هر فایل و فولدری که داخل آن است)
3. اجرای یک فایل exe (نه توسط ole) ، میخواهم صد در صد توسط کد باشد. دقیقا میخوام وقتی روی دکمه ای کلیک شد آن فایل اجرا شود.
مرسی

Mahmood_M

جمعه 12 اسفند 1384, 23:58 عصر

1. با استفاده از کد زیر می تونید یک شاخه در رجیستری ایجاد کنید. ( البته یک شاخه از نوع DWord ): می تونید مبنی بر کاری که می خواید انجام بدید اون رو تغییر دهید( زیاد سخت نیست یه خورده نگاه کنید متوجه می شید ).

procedure TForm1.Button1Click(Sender: TObject);
var
Reg: Tregistry;
begin
Reg:= tregistry.Create;
Reg.RootKey:= HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Policies\system\',false);
Reg.WriteInteger(مقدار مورد نظر,'نام شاخه مورد نظر');
Reg.Free;
end;

2. در مورد سئوال دومتون باید بگم که نمی دونم چه طور فایلهای داخل یک پوشه رو کپی می کنند ولی با تابع CopyFile می تونید یک فایل رو کپی کنید و با تابع زیر هم می تونید یک پوشه با تمام محتویاتش رو کپی کنید :

function CopyDir(const fromDir, toDir: string): Boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_COPY;
fFlags := FOF_FILESONLY;
pFrom := PChar(fromDir + #0);
pTo := PChar(toDir)
end;
Result := (0 = ShFileOperation(fos));
end;

// طریقه استفاده :
procedure TForm29.BitBtn1Click(Sender: TObject);
begin
CopyDir('پوشه مقصد', 'پوشه مورد نظر');
end;

3. با استفاده از کد زیر هم می تونید یک برنامه مثلا NotPad رو اجرا کنید : ( توابع API )

;
ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL) ;

و یا با کد زیر می تونید به یک صفحه وب برید :

ShellExecute(Handle, 'open', 'http://Barnamenevis.org',nil,nil, SW_SHOWNORMAL) ;

و یا با کد زیر می تونید یک ایمیل بفرستید :

var em_subject, em_body, em_mail : string;
begin
em_subject := 'This is the subject line';
em_body := 'Message body text goes here';

em_mail := 'mailto:delphi.guide@about.com?subject=' +
em_subject + '&body=' + em_body ;

ShellExecute(Handle,'open',
PChar(em_mail), nil, nil, SW_SHOWNORMAL) ;
end;

نکته مهم : برای استفاده از سه کد فوق حتما باید کلمه ShellApi رو به قسمت Uses اضافه کنید.
امیدوارم به دردتون خورده باشه ... ( اگه جستجو هم بکنید فکر کنم چیزهای زیادی پیدا کنید )