سلام
1-چطوری میشه برنامه ای نوشت که یک چیزی را تو رجیستری بنویسه و بهد هم اونو چک کنه
2-برنامه ای ک بیشتر از یک بار اجرا نشه.
با تشکر
رامین :oops:
Printable View
سلام
1-چطوری میشه برنامه ای نوشت که یک چیزی را تو رجیستری بنویسه و بهد هم اونو چک کنه
2-برنامه ای ک بیشتر از یک بار اجرا نشه.
با تشکر
رامین :oops:
در مورد Registry من چند وقت پیش یه نمونه برنامه گذاشتم اینجا ! شما اگر توی Help دلفی به دنبال Tregistry بگردید میتونید به جوابتون برسید !
در مورد اینکه برنامه یک بار اجرا بشه راه های مختلفی وجود داره یک راه ساده اش اینه !
const
A1: array[0..12] of char = 'TForm'#0;
T1: array[0..20] of char = 'Project'#0;
var
h:HWND;
begin
h:=FindWindow(A1, T1);
if h<>0 then begin
EnableWindow(h,True);
BringWindowToTop(h);
ShowWindow(h,SW_RESTORE);
Halt;
end;
Application.Initialize;
Application.Title := 'MyProject';
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
البته باید در Design Time در Caption Form اصلی از عبارتی بجز Project استفاده کنید و بعد از شرط اولیه Caption رو به اسم مورد نظر برگردونید .
ارادتمند مشاطان
سلام
متشکرم.
سلام
اگر بخواهیم عملیات زیر را با استفاده ا ز دلفی در رجیستری انجام دهیم باید چکار کرد
نقل قول:
http://www.barnamenevis.org/viewtopic.php?t=7023
برای اینکه این مشکل را حل کنید regedit را اجرا کنید و به آدرس
Hkey_local_machine>software>microsoft>jet>engine>x base>codepage
بروید و مقدار oem را به ansi تبدیل کنید یقیننا مشکل حل خواهد شد بعد از انجام کار حتما مقدار مذکور را به حال اول برگردانید
با این کد میتوانید . درضمن در help مثالهای دیگری وجود دارد :
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\software\microsoft\jet\engine\xb ase\codepage', False) then
begin
Reg.WriteString('oem','ansi');
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;
end;
خیلی ممنون
با سلام
اقای مشاطان اون اسم فرم و برنامه رو برای چی ریختید تو یه ارایه و تهش رو هم یه 0# گذاشتید.
مگه خود String یه ارایه از کاراکترها نیست؟؟