27. august 2002 - 17:05
Der er
1 kommentar og
1 løsning
Indstillinger!?? hjælp!!
Jeg har det windowsbaserede Delphi 6.0 Personal.
Jeg har lige 2 spørgsmål:
1.) Jeg har lavet et lille program. Når man i programmet trykker på en knap vil jeg gerne have programmet til at åbne, skærm indstillingerne. Den samme lille box, man får frem når man højre-klikker på skrivebordet og vælger Egenskaber.
Hvordan gør man det??
2.) I det samme program som ovenfor, ville det så være muligt at trykke på knap, der så ikke behøvede at åbne den lille skærm-indstillinger box. Men på forhånd (som man selv kontrollere) kan sætte opløsningen til fx. 1024 x 768??
27. august 2002 - 17:54
#2
Og det andet:
uses registry
procedure TForm1.Button2Click(Sender: TObject);
begin
with TRegIniFile.Create('') do
try
RootKey := HKEY_CLASSES_ROOT;
WriteString('.newext', '', 'NewExt');// .newext rettes til din ext
WriteString('NewExt', '', 'Your description of NewExt files');
WriteString('NewExt\DefaultIcon', '', 'C:\MyApp.Exe,0');
WriteString('NewExt\Shell', '', 'This_Is_Our_Default_Action');
WriteString('NewExt\Shell\First_Action', '','This is our first action');
WriteString('NewExt\Shell\First_Action\command', '', 'C:\MyApp.Exe /LotsOfParamaters %1');
WriteString('NewExt\Shell\This_Is_Our_Default_Action', '', 'This is our default action');
WriteString('NewExt\Shell\This_Is_Our_Default_Action\command', '', 'C:\MyApp.Exe %1');
WriteString('NewExt\Shell\Second_Action', '', 'This is our second action');
WriteString('NewExt\Shell\Second_Action\command', '', 'C:\MyApp.Exe /TonsOfParameters %1');
finally
Free;
end;
end;
