In gevolg hierop wilde ik natuurlijk even een progje maken dat ook nog even mijn labels aanpast. Ik dacht dat te doen met
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
DriveLetter: PChar;
begin
DriveLetter:='T:\';
Win32Check(SetVolumeLabel(DriveLetter,PChar('Projects Private')));
DriveLetter:='U:\';
Win32Check(SetVolumeLabel(DriveLetter,PChar('Projects Itension')));
DriveLetter:='V:\';
Win32Check(SetVolumeLabel(DriveLetter,PChar('Projects JEDI')));
DriveLetter:='W:\';
Win32Check(SetVolumeLabel(DriveLetter,PChar('Projects NLDelphi')));
end;
maar dat knalt dus hopeloos. als ik hetzelfe probeer met de c: drive werkt het wel. Iemand een idee hoe ik dat voor elkaar krijg?
Bookmarks