Copiar directorio

[[Lepe]]

Para el escritorio....

WINSHELLAPI HRESULT WINAPI SHGetSpecialFolderLocation(;

HWND hwndOwner,
int nFolder,
LPITEMIDLIST *ppidl
);


Parameters

hwndOwner

Handle of the owner window that the client should specify if it displays a dialog box or message box.

nFolder

Value specifying the folder to retrieve the location of. This parameter can be one of the following values:

CSIDL_DESKTOPDIRECTORY File system directory used to physically store file objects on the desktop (not to be confused with the desktop folder itself).

Para el tema del cdrom

Código Delphi [-]
var
  Buffer : array[0..500] of char;
  TmpPC  : PChar;

begin
  GetLogicalDriveStrings(SizeOf(Buffer),Buffer);
  TmpPC := Buffer;
   while TmpPC[0] <> #0 do begin
    if GetDriveType(TmpPC) = Drive_CDROM then showMessage( tmpc + ' es una unidad de CD uuuuuaaaaauuu');
    TmpPC := StrEnd(TmpPC)+1;
   end;
 end;

Un saludo