Search results for 'CSIDL_PROGRAMS'. 1 post(s) found.
- 2007/09/19 Create new program group in the Start menu
Here's how to create a new program group inside the Start-Programs menu:
uses ShlObj;
...
function CreateFolder(Foldername: string; aLocation: integer) : boolean;
var pIdl: PItemIDList;
hPath: PChar;
begin
Result := False;
if SUCCEEDED(SHGetSpecialFolderLocation(0, aLocation, pidl)) then
begin
hPath := StrAlloc(max_path) ;
SHGetPathFromIDList(pIdl, hPath) ;
SetLastError(0) ;
CreateDirectory(PChar(hPath + '\\' + Foldername), nil) ;
if (GetLastError() = 0) or(GetLastError() = ERROR_ALREADY_EXISTS) then
Result := true;
StrDispose(hPath) ;
end;
end;
{ Usage: }
procedure TForm1.Button1Click(Sender: TObject) ;
begin
{constants like 'CSIDL_PROGRAMS'
are defined in the ShlObj unit}
CreateFolder('MyProgramgroup', CSIDL_PROGRAMS) ;
end;
...
function CreateFolder(Foldername: string; aLocation: integer) : boolean;
var pIdl: PItemIDList;
hPath: PChar;
begin
Result := False;
if SUCCEEDED(SHGetSpecialFolderLocation(0, aLocation, pidl)) then
begin
hPath := StrAlloc(max_path) ;
SHGetPathFromIDList(pIdl, hPath) ;
SetLastError(0) ;
CreateDirectory(PChar(hPath + '\\' + Foldername), nil) ;
if (GetLastError() = 0) or(GetLastError() = ERROR_ALREADY_EXISTS) then
Result := true;
StrDispose(hPath) ;
end;
end;
{ Usage: }
procedure TForm1.Button1Click(Sender: TObject) ;
begin
{constants like 'CSIDL_PROGRAMS'
are defined in the ShlObj unit}
CreateFolder('MyProgramgroup', CSIDL_PROGRAMS) ;
end;
Another posts included in "Delphi"
| Detecting and preventing Windows shut down (0) | 2007/09/19 |
| Detecting Drive Types (0) | 2007/09/19 |
| Disable Mouse and Keyboard from Delphi Code (0) | 2007/09/19 |
| Copying Group of Files using Delphi with Standard Animation Dialog (SHF... (0) | 2007/09/19 |
| Controling sound volume from code (0) | 2007/09/19 |
| How to Close Another Application by Windows Caption (0) | 2007/09/19 |
| How to Change the Windows Start button bitmap (0) | 2007/09/19 |
| How to capture the output from a DOS (command/console) Window (0) | 2007/09/19 |
CreateDirectory,
CreateFolder,
CSIDL_PROGRAMS,
Shell Object,
SHGetPathFromIDList,
SHGetSpecialFolderLocation,
ShlObj,
Windows API
Trackback : Cannot send a trackbact to this post.
-
Subject Beast of burdon b.o.b. bike trailers.
2009/03/31 19:01
Zoo sex pictures animal porn movies beast trailers.
-
Subject different money making ideas
2010/01/29 03:11
moneyideas
-
Subject different money making ideas
2010/01/29 12:08
moneyideas
-
Subject different money making ideas
2010/01/31 16:40
moneyideas
Prev
Rss Feed