 |
|
 | |
 | |
 | |
 | |
 | |
 | |
 | |
|
|
How to change desktop image with Delphi? Aha-Soft - software for working with icons and cursors  How to register OCX? How to create icon in the group? How to register OCX? Put *.ocx into system Windows directory and call REGSVR32.EXE in the your application:
iniFile:=TiniFile.Create(xyz.ini');
lVCF132Registered:=IniFile.ReadBool('Main',
'VCF132Registered',False);
if not lVCF132Registered then
begin
WinExec(Pchar('REGSVR32.EXE /s VCF132.OCX'),
SW_MINIMIZE);
IniFile.WriteBool(cName,
'VCF132Registered',True);
end;
IniFile.Free;
How to create icon in the group? See example:
procedure TForm1.Button2Click(Sender: TObject);
var
DDE: TDDE;
PROGMAN: TDDEString;
Conv: TDDEConversation;
WizardGroupValue, CreateGroupCmd,
CreateIconCmd: string;
begin
WizardGroupValue := '000000000';
DDE := TDDE.Create;
try
PROGMAN := DDE.CreateString('PROGMAN');
Conv := DDE.BeginConnection(PROGMAN,
PROGMAN);
CreateGroupCmd := '[CreateGroup("' +
WizardGroupValue + '")]';
DDE.Execute (Conv, CreateGroupCmd,
False);
DDE.Execute (Conv, '[ShowGroup("' +
WizardGroupValue + '",5)]',
False);
CreateIconCmd:=Format('[AddItem(%s,
%s, %s, %s)]',
['c:\autoexec.bat', 'My demoapp',
'c:\autoexec.bat', '0'])+#13#10;
DDE.Execute (Conv, CreateIconCmd,
False);
finally
DDE.Free;
end;
end;
 Site Map
|
|
Icon Software | Graphic Software | Icons Downloads | Order Icons | Windows Icon Sets | Support
Privacy Policy | Terms of Use | Refund Policy Copyright © 2000-2022 Aha-Soft. All rights reserved. |
|
More info
