RE: [DUG]: missing VCL

[Patrick Dunford]

I 
believe the answer given by the other person is correct, when you install for a 
new user I think there is a registry only install that you can 
run.

  -Original Message-From: [EMAIL PROTECTED] 
  [mailto:[EMAIL PROTECTED]]On Behalf Of Laurie 
  BismanSent: Sunday, 4 March 2001 14:38To: Multiple 
  recipients of list delphiSubject: [DUG]: missing 
  VCL
  I have Delphi 5 installed on my work 
  computer- it has two profiles set up under Windows98, I can use it from 
  one profile but if I run it from another profile, the VCL is missing - the 
  only tab available is STANDARD and all that's there is FRAMES...
  
  What's happening?
  
  ¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤øø¤ 
  Laurie Bisman - New 
  Zealand¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤øø¤

Re: [DUG]: Renaming/Relabeling A Shared Drive from Delphi.

[Nello Sestini]

  
  In Windows 
  Explorer you can rename mapped network drives (right click - rename, 
  double click - edit label field).
  
  Is it possible to 
  do this from aDelphi App using the windows API?
  
you can call the SetVolumeLabel API function

function SetVolumeLabel(lpRootPathName: PChar; lpVolumeName: 
PAnsiChar): BOOL; stdcall;{$EXTERNALSYM SetVolumeLabel}


or you could call WinExec and pass it an appropriate Label 
command


-ns

RE: [DUG]: Renaming/Relabeling A Shared Drive from Delphi.

[Stacey Verner]

I have 
tride SetVolumeLabel and I have tried using the Label command, but neither of 
these work, unless I have to specify the drive identifier (Root path name) 
differently. I have tried the following in Delphi:

 SetVolumeLabel(PChar('G:'), 
PChar('Bob'));
 SetVolumeLabel(PChar('G:\'), 
PChar('Bob'));

 SetVolumeLabel(PChar('\\machinename\C'), 
PChar('Bob'));
 SetVolumeLabel(PChar('\\machinename\C:'), 
PChar('Bob'));

and 
for the Label command

 Label G: Bob
 Label G:\ Bob

 Label \\machinename\C 
Bob
 Label \\machinename\C: Bob

Thanks

Stacey

  -Original Message-From: Nello Sestini 
  [mailto:[EMAIL PROTECTED]]Sent: Monday, 5 March 2001 12:07 
  p.m.To: Multiple recipients of list delphiSubject: Re: 
  [DUG]: Renaming/Relabeling A Shared Drive from Delphi.
  

In Windows 
Explorer you can rename mapped network drives (right click - rename, 
double click - edit label field).

Is it possible 
to do this from aDelphi App using the windows API?

  you can call the SetVolumeLabel API function
  
  function SetVolumeLabel(lpRootPathName: PChar; lpVolumeName: 
  PAnsiChar): BOOL; stdcall;{$EXTERNALSYM SetVolumeLabel}
  
  
  or you could call WinExec and pass it an appropriate Label 
  command
  
  
  -ns

Re: [DUG]: Renaming/Relabeling A Shared Drive from Delphi.

[Nello Sestini]

  Label D: Foo works fine because D: is a local drive. If D: were a 
  mapped network drive then this would fail and give the error "the network 
  request was not supported".
  
Sorry, missed the "network drive" bit. (you 
did say that in the original post).

-ns

[DUG]: Printer Managament API

[Stacey Verner]

We are using Citrix 
Metaframe to host delphi Apps on the Internet. All is well except intermittent 
problems with priniting. Basically, a print job fails, and cannot be deleted, so 
the user can no longer print, untill you ask to delete the job (This doesn't 
succeed but doesn't complain. Just keeps trying.) and then restart the print 
spooler (for all users).

Has anybody looked 
at the printer stuff in the Windows API, and knows weather I could do some 
tricky stuff to force the delete of the print job, and allow the user to keep 
printing.

Thanks

Stacey

Stacey 
Verner 
Ph: +64-9-4154790Software 
Developer Fax: 
+64-9-4154791 
DDI: +64-9-4154797CJN Technologies Ltd. Email: 
[EMAIL PROTECTED]PO Box 
302-278, North Harbour, Auckland, New Zealand12 Piermark Drive, North 
Harbour Estate, Auckland, NZVisit our website at http://www.cjntech.co.nz/ 

Re: [DUG]: Renaming/Relabeling A Shared Drive from Delphi.

[Nello Sestini]

  
  Label D: Foo works fine because D: is a local drive. If D: were a 
  mapped network drive then this would fail and give the error "the network 
  request was not supported".
  
  I am 
  on Windows 2000 Pro, Service Pack 1.
  
  
I'd guess this is peculiar toWin 2000. In NT I 
can't change the volume 
name on mapped drives via the 
explorer.

Does this even make sense in general?What if 
the drive is mapped to 
a network share? Then what label are you 
changing?

In any case you might try doing this using the WScript 

FileSystemObject interface.

It doesn't work for me in NT - I get a permissions error 
when
I try to rename a mapped drive - but it might work in your 

environment.

I admit it's ugly - but it might work.

here's the code I (tried to) use:



uses comobj;

{$R *.DFM}

procedure 
TForm1.RenameVol(drvname,newvolname:string);var fso: 
Variant; drv: Variant;begin fso := 
CreateOleObject('scripting.filesystemobject'); drv := 
fso.GetDrive(drvname); 
drv.volumename:=newvolname;end;